The SelStart property positions the cursor within the RTB. This line will move the cursor to the end of the text.

RichTextBox1.SelStart = Len(RichTextBox1.Text)