Cómo validar textbox en un formulario

Te anexo el código:

Private Sub CommandButton1_Click()
'Por.Dante Amor
    If TextBox1 = "" Then
        MsgBox "Falta el dato del textbox1"
        TextBox1.SetFocus
        Exit Sub
    End If
    If TextBox2 = "" Then
        MsgBox "Falta el dato del textbox2"
        TextBox2.SetFocus
        Exit Sub
    End If
    '
    'continúa el demás código
    '
End Sub

Saludos.Dante Amor

Recuerda valorar la respuesta.