EnterTab

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{TAB}" KeyAscii = 0
End If
End Sub