EnterToTAB

Sub Form_KeyPress (KeyAscii As Integer)
If KeyAscii = 13 Then
If TypeOf ActiveControl Is TextBox Then
SendKeys "{TAB}"
KeyAscii=0
End If
End If
End Sub