Private Sub Text1_KeyPress (KeyAscii As Integer)

If KeyAscii = 13 Then
  SendKeys "{tab}"
  KeyAscii = 0
End If

End Sub