るきおさん、ありがとうございます。
まさに僕が探し求めていたのは、こういうことです。
調べてもなかなか出てこないので・・・
ここで質問してよかったです。
ちなみに、.Trainや、abcの後の色が赤や緑などに変更されたままだったので、この文を足して直しました。

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

        RichTextBox1.SelectionColor = Color.Black

End Sub