Нерегистрозависимый поиск текста в RichTextBox

Private Sub ListBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseClick
        'поиск слов в РичТекстбоксе (слово для поиска вводим кликом из Листбокса)
        Dim index As Integer = 0
        Dim temp As String = RichTextBox2.Text
        RichTextBox2.Text = ""
        RichTextBox2.Text = temp
 
        While index <= RichTextBox2.Text.LastIndexOf(ListBox1.SelectedItem)
            RichTextBox2.Find(ListBox1.SelectedItem, index, RichTextBox2.TextLength, RichTextBoxFinds.WholeWord)
            RichTextBox2.SelectionBackColor = Color.Red
            index = RichTextBox2.Text.IndexOf(ListBox1.SelectedItem, index) + 1
        End While
    End Sub

Option Compare Text

 Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim index As Integer = 0
        Dim temp As String = RichTextBox1.Text
        RichTextBox1.Clear()
        RichTextBox1.Text = temp
        While index <= RichTextBox1.Text.ToLower.LastIndexOf(ListBox1.SelectedItem)
            RichTextBox1.Select(RichTextBox1.Text.ToLower.IndexOf(ListBox1.SelectedItem, index), ListBox1.SelectedItem.ToString.Length)
            RichTextBox1.SelectionBackColor = Color.Red
            index = RichTextBox1.Text.ToLower.IndexOf(ListBox1.SelectedItem, index) + 1
        End While
    End Sub