Поиск и выделение символов в RichTextBox без учета регистра

Dim Pozition As Integer = 1 ' В переменной хранится позиция курсора
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' При нажатии на кнопку 'Поиск'
 
If InStr(Pozition, LCase(TextBox2.Text), LCase(Trim(TextBox1.Text))) <> 0 Then ' При помощи функции InStr в TextBox2 ищем текст введенный в TextBox1, функции LCase нужна для перевода всех символов в нижний регистр, т.е. это для того чтобы искался текст не зависимо от того в каком регистре символ(короче, ПриВет и пРИвЕТ будет искаться одинаково). Функция Trim нужна для обрезания пробелов слево и справо. Переменная Pozition задает позицию курсора(по умолчания Pozition = 1, т.е. поиск будет с первого символа)
 
TextBox2.Focus() ' TextBox2 передаем фокус
TextBox2.SelectionStart = InStr(Pozition, LCase(TextBox2.Text), LCase(Trim(TextBox1.Text))) - 1 ' Устанавливаем позицию курсора перед найденным словом. Всё дело в том, что если в тексте было найденно искомое слово, то функция выдает позицию этого слова(т.е. количество символов перед искомым словом в тексте).
TextBox2.SelectionLength = Len(Trim(TextBox1.Text)) ' Выделяем найденное слово(выделение начинается с позиции курсора, и длится столько, сколько символов в слове)
TextBox2.ScrollToCaret() ' Прокручиваем текст до выделенного слова
 
Pozition = TextBox2.SelectionStart + Len(Trim(TextBox1.Text)) ' Переменная Pozition = позиции найденного слова, это для того чтобы одно слово не искалась по несколько раз
Else ' Если ни чего не найденно(или поиск закончен), то выдаем сообщение и устанавливаем значение переменных по умолчанию
MsgBox("Поиск завершен")
Pozition = 1
End If
 
End Sub

Pozition = TextBox2.SelectionStart + Len(Trim(TextBox1.Text))

InStr(Pozition, LCase(TextBox2.Text), LCase(Trim(TextBox1.Text)))

Public Class frmSearch_Replase
'кнопка поиска (без учета регистра)
    Private Sub btnLookFor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLookFor.Click
        Dim STR As String = frmMain.txtEditor.Text
        Dim SubSTR As String = Me.txtLookFor.Text
        Dim L As Integer = Me.txtLookFor.Text.Length
        Dim Ind As Integer
        Ind = InStr(frmMain.start, STR, SubSTR)
        If Ind > 0 Then
            frmMain.txtEditor.SelectionStart = Ind - 1
            frmMain.txtEditor.SelectionLength = L
            frmMain.start = Ind + L
            frmMain.txtEditor.ScrollToCaret()
        Else
            frmMain.txtEditor.SelectionStart = 0
            frmMain.txtEditor.SelectionLength = 0
            frmMain.start = 1
            frmMain.txtEditor.ScrollToCaret()
            MsgBox("Пройден конец документа", MsgBoxStyle.Information, "Записная книжка")
        End If
    End Sub
' кнопка замены
    Private Sub btnReplase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReplase.Click
        frmMain.txtEditor.Text = frmMain.txtEditor.Text.Replace(Me.txtLookFor.Text, Me.txtReplase.Text)
    End Sub
End Class

InStr

IndexOf

Dim STR As String = frmMain.txtEditor.Text.ToLower
Dim SubSTR As String = Me.txtLookFor.Text.ToLower