Visual Basic - Validar textbox que no queden vacios

Private Sub Command1_Click()

Dim Conttrol As control

For Each Conttrol In Controls

If TypeOf Conttrol Is TextBox Then

    If Conttrol.Text = "" Then

        MsgBox "Hay algún TextBox vacío!"

        Exit Sub

    End If

End If

Next

MsgBox "Todos los TextBox tienen contenido!"

End Sub

Private Sub Command1_Click()

Dim Conttrol As control

If TextBox1 = "" Or TextBox2 = "" Or ComboBox1 = "" Or ComboBox2 = "" Then

MsgBox "No dejes ningun campo en blanco", vbOKOnly + vbInformation, "AVISO"

TextBox1.SetFocus

Exit Sub

End If

'AQUI tu codigo

End Sub

Private Sub Command1_Click()

If TextBox1 = Empty Or TextBox2 = Empty Or TextBox3 = Empty Or TextBox6 = Empty Or TextBox7 = Empty _

Or TextBox8 = Empty Or TextBox9 = Empty Or TextBox10 = Empty Or TextBox11 = Empty Or TextBox12 = Empty _

Or TextBox13 = Empty Or TextBox14 = Empty Or TextBox4 = Empty And OptionButton1 = False _

Or OptionButton2 = False And OptionButton3 = False Then

    MsgBox (Chr(13) & vbTab & "Por favor, revisa el formulario" _

    & Chr(13) & Chr(13) & "  Debes completar los datos necesarios  para poder continuar"), _

    vbOKOnly + vbInformation, " Datos incompletos"

Else

End If

'Aqui tu codigo

End Sub

If TextBox1 = Empty Or TextBox2 = Empty Or TextBox3 = Empty Or TextBox6 = Empty Or TextBox7 = Empty _

Or TextBox8 = Empty Or TextBox9 = Empty Or TextBox10 = Empty Or TextBox11 = Empty Or TextBox12 = Empty _

Or TextBox13 = Empty Or TextBox14 = Empty Or TextBox4 = Empty And OptionButton1 = False _

Or OptionButton2 = False And OptionButton3 = False Then

'''''''''''''''''''SOLO AQUI PUEDE EXISTIR UN ESPACION ENTRE LA LINEA ANTERIOR Y LA POSTERIOR

    MsgBox (Chr(13) & vbTab & "Por favor, revisa el formulario" _

    & Chr(13) & Chr(13) & "  Debes completar los datos necesarios  para poder continuar"), _

    vbOKOnly + vbInformation, " Datos incompletos"