リッチテキストボックスでフォントの色を保つには？

解決

---

リッチテキストボックスを使っています。
RichTextBox1.Text = RichTextBox1.Text + "あ"
のようにして、最後に一文字付け加えると、途中の文字の色を
RichTextBox1.SelColor=vbRedのようにして、色を赤に変えていても
”あ”を付け加えた瞬間に、リッチテキストボックスの最初の１文字目の色
に文章全部が変わってしまいます。
色の変化を保つ文字の付け加え方を教えてください。

編集 削除

---

RichTextBox2を作ってそこに文字を書き込み、それをRichTextBox1に貼り付けるような形にすると、前に入力した文字の色を変えずに文字を付け加えることができました。ありがとうございました。

    RichTextBox1.SetFocus
    RichTextBox1.SelStart = Len(RichTextBox1.Text)
    RichTextBox2.Text = ""
    RichTextBox2.Text = "あ"
    RichTextBox1.SelText = RichTextBox2.Text

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。