SelectText (2)

Private Sub Text1_GotFocus()
SendKeys "{home}+{end}"
End Sub

'oppure

Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub