Выделение символов в richtextbox

    Dim ksl, j As Integer
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        RichTextBox1.Text = "po er nhy njuyt lksiur sdf mkt"
        RichTextBox2.Text = "po er njuyt lksiur mkt"
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        Dim tc1()
        Dim tc2()
       
        Dim ta1() As String = Split(RichTextBox1.Text, " ")
        Dim ta2() As String = Split(RichTextBox2.Text, " ")
        '    MsgBox("ta  - " & ta1.Count & "  ta2  - " & ta2.Count)
        If ta1.Count > ta2.Count Then
            ksl = ta1.Count
        Else
            ksl = ta2.Count
        End If
        '/ Поиск отличий слов в "ListBox1" и "ListBox2"
        Dim resultList As New List(Of String)()
        For Each x As String In ta1
            If Not ta2.Contains(x) Then
                resultList.Add(x)
                ListBox1.Items.Add(x)
                '  MsgBox("ListBox1" & x)
                '  tc2 = {i, x}
            End If
        Next
        '//
        '/ Поиск отличий слов в "ListBox2" и "ListBox1"
        Dim res As New List(Of String)()
        For Each y As String In ta2
            If Not ta1.Contains(y) Then
                res.Add(y)
                ListBox2.Items.Add(y)
                '  MsgBox("ListBox2" & y)
            End If
        Next
        '//
        '/  Поиск и выделение текста
        Dim textEnd As Integer = RichTextBox2.TextLength
        Dim st As String
        Dim index As Integer = 0
 
        If ListBox2.Items.Count > 0 Then
            For k = 0 To ListBox2.Items.Count - 1
                st = ListBox2.Items(k)
                index = 0
                Dim lastIndex As Integer = RichTextBox2.Text.LastIndexOf(st)
                While index < lastIndex
                    RichTextBox2.Find(st, index, textEnd, RichTextBoxFinds.None)
                    RichTextBox2.SelectionFont = New Font("Verdana", 12, FontStyle.Bold)
                    RichTextBox2.SelectionColor = Color.Blue
                    index = RichTextBox2.Text.IndexOf(st, index) + 1
                End While
            Next
        End If
        '//
 
        '/  Поиск и выделение текста
        Dim textEnd2 As Integer = RichTextBox1.TextLength
        Dim st2 As String
        Dim index2 As Integer = 0
 
        If ListBox1.Items.Count > 0 Then
            For i = 0 To ListBox1.Items.Count - 1
                st2 = ListBox1.Items(i)
                index2 = 0
                Dim lastIndex2 As Integer = RichTextBox1.Text.LastIndexOf(st2)
                While index2 < lastIndex2
                    RichTextBox1.Find(st2, index2, textEnd2, RichTextBoxFinds.None)
                    RichTextBox1.SelectionFont = New Font("Verdana", 12, FontStyle.Bold)
                    RichTextBox1.SelectionColor = Color.Red
                    index2 = RichTextBox1.Text.IndexOf(st2, index2) + 1
                End While
            Next
        End If
        '//
    End Sub