SelStart (2)

Sub Text1_GotFocus()
Text1.SelStart=0
Text1.SelLength=65535 ' Max Num
End Sub