Set the SelStart property to Len(Text1.Text) before adding more text with SelText.