Hola!
Antes que nada, verifica la propiedad 'TabIndex' de cada text, la cual debe estar en secuencia, para que al mandar el "TAB" no esté saltando entre los text como loco.
Código vb:
Ver originalPrivate Sub txtText1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then SendKeys "{TAB}"
End Sub
Private Sub txtText1_LostFocus()
If Trim(txtText1.Text) = Empty Then
MsgBox "No puede estar en blanco!", vbInformation
txtText1.SetFocus
End If
End Sub
Nos cuentas!