This will do what you asked:
Code:
Text1.SelLength = Len(Text1.Text)