Подсветка текста

 Sub ColorText(ByVal RTB As RichTextBox, ByVal List As NewList(Of String, Color))
        If RichTextBox1.Text <> "" Then
            Dim A = RichTextBox1.SelectionStart
1:
            Dim DoA As Integer = 0
            Dim DoB As Integer = 0
            If RTB.SelectionStart = 0 Then
                GoTo 2
            End If
            Do Until Mid(RTB.Text, RTB.SelectionStart - DoA, 1) = " "
                DoA = DoA + 1
                StartPos = RTB.SelectionStart - DoA
                If RTB.SelectionStart - DoA = 0 Then
                    StartPos = 0
                    Exit Do
                End If
            Loop
2:
            If RTB.SelectionStart = 0 Then
                DoB = 1
            End If
            Do Until Mid(RTB.Text, RTB.SelectionStart + DoB, 1) = " "
                DoB = DoB + 1
                EndPos = RTB.SelectionStart + DoB - 1
                If RTB.SelectionStart + DoB >= RTB.Text.Length Then
                    EndPos = RTB.Text.Length
                    Exit Do
                End If
            Loop
 
            POS = RTB.SelectionStart
            RTB.SelectionStart = StartPos
            RTB.SelectionLength = EndPos - StartPos
 
            If NewList(Of String, System.Drawing.Color).ListText.Contains(RTB.SelectedText) = False Then
                RTB.SelectionColor = RTB.ForeColor
                RTB.SelectionLength = 0
                RTB.SelectionStart = POS
            Else
                For i = 0 To List.Count - 1 Step 1
                    If RTB.SelectedText = List.IndexText(i) Then
                        RTB.SelectionColor = List.IndexColor(i)
                        RTB.SelectionLength = 0
                        RTB.SelectionStart = POS
                    End If
                Next
            End If
        End If
 
    End Sub