RichTexBoxについて

を使っています
button1をクリックすると選択しているラジオボタンのテキストがリッチテキストボックスの書いてあるテキストの最後に書かれさらに書かれたラジオボタンのテキストの文字だけ赤色にするという風にしたいのですがどうすればいいですか？

すみませんが

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Forms.RadioButtonA.Checked Then

            TextBox1.Text += ("A")

            Dim pattern As String = "A"

            Dim matches = System.Text.RegularExpressions.Regex.Matches(TextBox1.Text, pattern)



            For Each match As System.Text.RegularExpressions.Match In matches

                Dim start As Integer = match.Index

                Dim length As Integer = match.Length

                TextBox1.Select(start, length)

                TextBox1.SelectionColor = Color.Red

            Next

        End If

    End Sub

とすると次の文字が赤くなってしまいます次から書くときには黒くするにはどうしたらいいですか？
ついでにカーソルがあるところにラジオボタンのテキストを書き込めるようにするにはどうしたらいいですか？よかったら教えてください。

よろしくお願いします。

SelectionColor があるのは RichTextBox ですが
わざわざ RichTextBox1 の名前を TextBox1 に修正したのですか？
状況が分からない他人に質問するのですから、紛らわしい修正は
しない方がいいと思いますが。

つねに

TextBox1.Text += ("A")

する不思議なコードですが。。。

このコードだと最後のキーワード部分が選択状態となり、
そのまま入力すると選択部分を上書き入力してしまいます。
カーソルの位置を入力文字列の最終位置なり、ボタン押下
時にあった位置に戻しておくべきでは？

質問にある、入力文字列の最終位置の色変更ですが、
TextLength で入力文字列の長さが取れます。
そこから選択範囲の長さ０で Select できます。
その状態で SelectionColor を Black に変えるだけです。

ご返答ありがとうございます。

RichTextBox1 の名前を TextBox1 にしたのはちょっとしたミスです申し訳ありませんでした。
すいませんがTextLengthとはどのように使うのですか？よかったらコードとか書いてくれるとありがたいです。

ご返答お願いします。

ご参考になりましたら幸いです。

Dim iL as Integer



    ' テキストボックスに書かれた文字数を取得する 

    iL = Me.TextBox1.TextLength