codice:
Private Sub TextBox_GotFocus()
    TextBox.SelStart=0
    TextBox.SelLenght=len(TextBox.Text)
    TextBox.SetFocus  'anche se non dovrebbe essere necessario
End Sub