Enter вместо Tab - VB

Формулировка задачи:

HI АLL Не подскажет ли кто где ошибка?

Sub Text1_KeyPress (KeyAscii As Integer)
  If KeyAscii = 13 Then   ' клавиши Enter
    SendKeys 'Tab'
    KeyAscii = 0
  End If
End Sub

У меня он в Text1 печатает текст Tab. Или может, кто подскажет, как сделать так чтобы при нажатии на Enter из поля Text1 осуществлялся переход в Text1?

Решение задачи: «Enter вместо Tab»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
   Me.KeyPreview = True
End Sub
 
Private Sub Form_KeyPress(KeyAscii As Integer)
   If KeyAscii = vbKeyReturn Then
      Select Case ActiveControl.Name
         Case Text1
              Text2.SetFocus
         Case Text2
              Text3.SetFocus
         Case Text3
              Text4.SetFocus
         Case Text4
              Text1.SetFocus
      End Select
   End If
End Sub
                        