うおっと間違えた
Dim unko = RichTextBox1.Text.Length
RichTextBox1.Select(a, unko)
こうだ