Textbox при нажатии на Key Tab теряет фокус

Private Sub Form_Load()
    Text1.TabStop = True
    Text2.TabStop = False
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 9 Then KeyAscii = 0: Text1.SelText = Chr(9)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
' перейди в пошаговый режим (F9 на след. строке)и убедись сам!!
    If KeyAscii = 9 Then KeyAscii = 0: Text1.SelText = Chr(9)
End Sub

Private Declare Function GetAsyncKeyState Lib 'user32' (ByVal vKey As Long) As Integer
'
Private Sub Text1_Validate(Index As Integer, Cancel As Boolean)
    If GetAsyncKeyState(vbKeyTab) Then
        Cancel = True
        Text1(Index).SelText = vbTab
    End If
End Sub

Private Declare Function GetAsyncKeyState Lib 'user32' (ByVal vKey As Long) As Integer
 
' вот только маленькое Edit 'по месту'::::)))
Private Sub Text1_Validate(Cancel As Boolean)
'Но у меня VB6 делает имя Sub только так, и все же работает'
   If GetAsyncKeyState(vbKeyTab) Then
      Cancel = True
      Text1.SelText = vbTab 'индекс убрал, т.к. окно у меня Text1.Text
      'это не существенно, но у кого с индексом, то = Text1(Index) 
      'оставить, важно идея правильна и работоспособна!!!!!!!!!!
   End If
End Sub

Private Sub Text1_Validate(Cancel As Boolean)
   If GetAsyncKeyState(vbKeyTab) Then
      Cancel = True
      Text1.SelText = Chr(vbKeyTab)' Chr(9) 'vbTab
   End If
End Sub
' Прекрасно работает любой вариант