RichTextBox. Изменения цвета текста выбранных слов

Dim Words_dont_come_easy = {"ey", "ye", "tratata"}
For Each Slovo In Words_dont_come_easy
            Dim Sovpadeniya As MatchCollection = Regex.Matches(WhereFind, Slovo, RegexOptions.IgnoreCase)
            For Each Sovpalo In Sovpadeniya
                RichTextBox1.SelectionStart = Sovpalo.Index
                RichTextBox1.SelectionLength = Sovpalo.Length
                RichTextBox1.SelectionBackColor = Color.DarkGreen
                RichTextBox1.SelectionColor = Color.Red
            Next Sovpalo
Next Slovo

Dim Words_dont_come_easy As String = "ey"
        Dim allIp As MatchCollection = Regex.Matches(RichTextBox1.Text, Words_dont_come_easy)
        For Each ip As Match In allIp
            RichTextBox1.SelectionStart = ip.Index
            RichTextBox1.SelectionLength = ip.Length
            RichTextBox1.SelectionBackColor = Color.DarkGreen
            RichTextBox1.SelectionColor = Color.Yellow
        Next

        Dim Words_dont_come_easy As String = "поиск|обработчик"
        Dim allIp As MatchCollection = Regex.Matches(RichTextBox1.Text, Words_dont_come_easy)
        For Each ip As Match In allIp
            RichTextBox1.SelectionStart = ip.Index
            RichTextBox1.SelectionLength = ip.Length
            RichTextBox1.SelectionBackColor = Color.DarkGreen
            RichTextBox1.SelectionColor = Color.Yellow
        Next

Dim Words_dont_come_easy As String = "ура|опа"
        Dim allIp As MatchCollection = Regex.Matches(RichTextBox1.Text, Words_dont_come_easy)
        For Each ip As Match In allIp
            RichTextBox1.SelectionStart = ip.Index
            RichTextBox1.SelectionLength = ip.Length
            RichTextBox1.SelectionBackColor = Color.White
            RichTextBox1.SelectionColor = Color.Red
        Next

        Dim HT As New Hashtable
        HT.Add("Dim", Color.Red)
        HT.Add("String", Color.Blue)
        HT.Add("As", Color.Green)
        HT.Add("RichTextBox1", Color.Cyan)
 
        Dim Words_dont_come_easy As String = String.Join("|", HT.Keys.Cast(Of String).ToArray)
        Dim allIp As MatchCollection = Regex.Matches(RichTextBox1.Text, Words_dont_come_easy)
        For Each ip As Match In allIp
            RichTextBox1.SelectionStart = ip.Index
            RichTextBox1.SelectionLength = ip.Length
            'RichTextBox1.SelectionBackColor = Color.Yellow
            RichTextBox1.SelectionColor = HT(ip.Value)
        Next
        RichTextBox1.SelectionLength = 0

    Dim HT As New Hashtable
    Dim CurPos As Integer
    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
 
 
        Dim Words_dont_come_easy As String = String.Join("|", HT.Keys.Cast(Of String).ToArray)
        Dim allIp As MatchCollection = Regex.Matches(RichTextBox1.Text, Words_dont_come_easy)
        CurPos = RichTextBox1.SelectionStart
        For Each ip As Match In allIp
            RichTextBox1.SelectionStart = ip.Index
            RichTextBox1.SelectionLength = ip.Length
            'RichTextBox1.SelectionBackColor = Color.Yellow
            RichTextBox1.SelectionColor = HT(ip.Value)
        Next
        RichTextBox1.SelectionLength = 0
        RichTextBox1.SelectionStart = curpos
        RichTextBox1.SelectionColor = Color.Black
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        HT.Add("Dim", Color.Red)
        HT.Add("String", Color.Blue)
        HT.Add("As", Color.Green)
        HT.Add("RichTextBox1", Color.Cyan)
    End Sub

Dim Words_dont_come_easy As String = "Status...........: Cracked"
        Dim allIp As MatchCollection = Regex.Matches(RichTextBox1.Text, Words_dont_come_easy)
        For Each ip As Match In allIp
            RichTextBox1.SelectionStart = ip.Index
            RichTextBox1.SelectionLength = ip.Length
            RichTextBox1.SelectionBackColor = Color.DarkGreen
            RichTextBox1.SelectionColor = Color.Yellow
            RichTextBox1.SelectionFont = New Font(RichTextBox1.Text, 10, FontStyle.Bold)
        Next
        RichTextBox1.ScrollToCaret()

Dim Words_dont_come_easy As String = "Status...........: Cracked"

Imports System.Text.RegularExpressions

ChangeTextRTB(RTB1, "Привед Медвед!"), Color.Blue, New Font("Microsoft Sans Serif", 8, FontStyle.Regular))