FocusTab

Private Declare Function GetKeyState Lib "User32" Alias "GetKeyState" (ByVal nVirtKey As Integer)
Private Const VK_TAB = 9
Private Sub Text1_GotFocus ()
If GetKeyState(VK_TAB) < 0 Then
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Else
Text1.SelLength = 0
End If
End Sub