spostare il setfocus con l'invio

[tas]

Private Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then Text2.SetFocus
End Sub