vb.net - vb.net の richtextbox から複数のテキストに色を付ける方法

Question

そこで、vb.net で (FTP サーバーを使用して) チャットを作成し、チャットの各名前に色を付けて、メッセージを含むファイルが次のようになるようにします。

#2George: HI
#2George: Hi geoo

RichTextBox1 textchangedそして私が追加するイベントを使用して：

For Each line In RichTextBox1.Lines
    If Not line Is Nothing Then
        If line.ToString.Trim.Contains("#2") Then
            Dim s$ = line.Trim
            RichTextBox1.Select(s.IndexOf("#") + 1, s.IndexOf(":", s.IndexOf("#")) - s.IndexOf("#") - 1)
            MsgBox(RichTextBox1.SelectedText)
            RichTextBox1.SelectionColor = Color.DeepSkyBlue
        End If
    End If
Next

最初の名前 (ジョージ) は色を変えましたが、2 番目の名前は変わりませんでした。

なぜこれが起こっているのですか？