spostare il setfocus con l'invio

[BOYROMA1]

come faccio in una text a spostare il setfocus alla text successiva premendo il tasto invio??

[tas]

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