Userform: Check if textbox is empty

[fboehlandt]

Hi everyone,
I have a question regarding userforms. I have a commandbutton on a userform that is currently disabled. Above are four textboxes. The commandbutton should only be enabled if all four textboxes contain something (i.e. are not empty). How do I check fo rthat using VBA?

 

[fboehlandt]

Never mind, this seems to work...

Private Sub TextBox_lastname_Change()
    CommandButton_proceed1.Enabled = False
    AllText
End Sub
Private Sub TextBox_firstname_Change()
    CommandButton_proceed1.Enabled = False
    AllText
End Sub
Private Sub TextBox_position_Change()
    CommandButton_proceed1.Enabled = False
    AllText
End Sub
Private Sub TextBox_fees_Change()
    OnlyNumbers
End Sub
Private Sub TextBox_serviceline_Change()
    CommandButton_proceed1.Enabled = False
    AllText
End Sub
Private Sub TextBox_projectcode_Change()
    CommandButton_proceed1.Enabled = False
    AllText
End Sub
Private Sub CommandButton_proceed1_Click()
    UserForm_Basic.Hide
    Load UserForm_Calendar
    UserForm_Calendar.Show
End Sub
Private Sub CommandButton_close1_Click()
    Unload Me
End Sub
Private Sub OnlyNumbers()
    If TypeName(Me.ActiveControl) = "TextBox" Then
        With Me.ActiveControl
            If Not IsNumeric(.Value) And .Value <> vbNullString Then
                MsgBox "Only numbers allowed!"
                .Value = vbNullString
            End If
        End With
    End If
End Sub
Private Sub AllText()
    If TextBox_lastname <> "" And _
    TextBox_firstname <> "" And _
    TextBox_position <> "" And _
    TextBox_serviceline <> "" And _
    TextBox_projectcode <> "" Then
        CommandButton_proceed1.Enabled = True
    End If
End Sub