Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
   Text1.SelStart = Len(Text1.Text)
End Sub
 
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
   Text1.SelStart = 0
   Text1.SelLength = Len(Text1.Text)
End Sub