Собственное диалоговое окно замены текста в текстовом редакторе

Form2.ShowDialog() 'к примеру

Private Sub ЗаменитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЗаменитьToolStripMenuItem.Click
        Dim TXTT As String = InputBox("Слово, которое нужно заменить:", "Заменить слово", "", 100, 100)
        Dim TXTTT As String = InputBox("На какое", "Заменить слово", "", 100, 100)
        Dim Pozition As Integer = 1 ' В переменной хранится позиция курсора 
        TextBox1.Text = Replace(TextBox1.Text, Trim(TXTT), Trim(TXTTT)) ' Функция Replace нужна для замены во всем тексте искомого слова, на новое слово(TextBox2 - текст, Textbox1 - искомое слово, TextBox3 - новое слово(замена)).
        If InStr(Pozition, LCase(TextBox1.Text), LCase(Trim(TXTT))) <> 0 Then ' При помощи функции InStr в TextBox2 ищем текст введенный в TextBox1, функции LCase нужна для перевода всех символов в нижний регистр, т.е. это для того чтобы искался текст не зависимо от того в каком регистре символ(короче, ПриВет и пРИвЕТ будет искаться одинаково). Функция Trim нужна для обрезания пробелов слево и справо. Переменная Pozition задает позицию курсора(по умолчания Pozition = 1, т.е. поиск будет с первого символа)
            TextBox1.Focus() ' TextBox2 передаем фокус
            Dim b As String = TextBox1.Text.IndexOf(TXTT)
            TextBox1.SelectionStart = b
            b = InStr(Pozition, LCase(TextBox1.Text), LCase(Trim(TextBox1.Text))) - 1 ' Устанавливаем позицию курсора перед найденным словом. Всё дело в том, что если в тексте было найденно искомое слово, то функция выдает позицию этого слова(т.е. количество символов перед искомым словом в тексте). 
            TextBox1.SelectionLength = Len(Trim(TXTT)) ' Выделяем найденное слово(выделение начинается с позиции курсора, и длится столько, сколько символов в слове)
            TextBox1.ScrollToCaret() ' Прокручиваем текст до выделенного слова 
            TextBox1.SelectedText = Trim(TXTTT) ' Заменяем выделенный текст
            Dim kk As String = TextBox1.Text.IndexOf(TXTT)
            TextBox1.SelectionStart = kk
        Else ' Если ни чего не найденно(или поиск закончен), то выдаем сообщение и устанавливаем значение переменных по умолчанию 
            MsgBox("Замена завершена")
            Pozition = 1
        End If
    End Sub

Public Class Form1
    Private MatchesCount As Integer
    Private Function FindMatches(ByVal StringToSearch As String,
                                    ByVal SearchFor As String, ByVal ReplaceFor As String) As String
        Dim Position As Integer = 0
 
        Do
            Position = StringToSearch.IndexOf(SearchFor, Position,
                                              System.StringComparison.InvariantCultureIgnoreCase)
            If Position <> -1 Then
                StringToSearch = StringToSearch.Remove(Position, SearchFor.Length)
                StringToSearch = StringToSearch.Insert(Position, ReplaceFor)
                MatchesCount += 1
                Position += ReplaceFor.Length
            End If
        Loop Until Position = -1
 
        Return StringToSearch
    End Function
 
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim S1 As String = InputBox("Введите строку для поиска")
        Dim S2 As String = InputBox("Введите строку для замены")
        MatchesCount = 0
        TextBox1.Text = FindMatches(TextBox1.Text, S1, S2)
        If MatchesCount <> 0 Then
            MsgBox("Заменено " & MatchesCount & " совпадений")
        Else
            MsgBox("Совпадений не найдено")
        End If
    End Sub
End Class

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.ToLower, Me.txtReplase.Text.ToLower)
    End Sub

Dim SR As New frmSearch_Replase
        If Me.txtEditor.SelectionLength > 0 Then
            SR.txtLookFor.Text = Me.txtEditor.SelectedText
        End If
        SR.ShowDialog()

Friend start As Integer = 1