Subito dopo la linea in cui aggiungi il testo

Text1.SelStart = Len(Text1.Text)