Dopo che aggiungi il testo, esegui la linea

RichTextBox1.SelLength = Len(RichTextBox1.Text)