Como hacer para validar un textbox?

[facufangio]

MUCHAS GRACIAS JONATHAN B POR EL APORTE......Pero quiero comentarle a los 2 que me ha surguido un error al poner 2 textbox uno seguido del otro y darle enter o tab cuando ambos estan vacios....se me queda trabado con el msgbox....acá coloco el codigo que use....necesito si me pueden dar una mano....desde ya Gracias

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
            MsgBox "No puede estar en blanco!", vbInformation
            Text1.SetFocus
        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
            MsgBox "No puede estar en blanco!", vbInformation
            Text2.SetFocus
        End If
    End Sub
 

y este es otro codigo que tambien use

Código vb:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
Else
KeyAscii = verificar_tecla(KeyAscii)
End If
End Sub
Private Sub Text1_LostFocus()
If Trim(Text1.Text) = Empty Then
MsgBox "No puede estar en blanco!", vbInformation, "Control Stock"
Text1.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
Else
KeyAscii = verificar_tecla(KeyAscii)
End If
End Sub
Private Sub Text2_LostFocus()
If Trim(Text2.Text) = Empty Then
MsgBox "No puede estar en blanco!", vbInformation, "Control Stock"
Text2.SetFocus
End If
End Sub