Como hacer para validar un textbox?

[JonathanB]

Saludos, lo que sucede es que después de ejecutar el msgbox, se esta pasando foco al siguiente control (ciclo infinito).

Para solventar tu problema del ciclo infinito, te recomiendo devolverle el foco al control antes de mostrar el msgbox.

Código vb:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then SendKeys "{TAB}"
End Sub
 
Private Sub Text1_LostFocus()
    If Trim(Text1.Text) = Empty Then
        Text1.SetFocus
        MsgBox "No puede estar en blanco!", vbInformation
    End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then SendKeys "{TAB}"
End Sub
 
Private Sub Text2_LostFocus()
    If Trim(Text2.Text) = Empty Then
        Text2.SetFocus
        MsgBox "No puede estar en blanco!", vbInformation
    End If
End Sub
 

Espero que te haya sido de utilidad