Сохранение настроек программы

Public Class Form2
    Dim SER, U
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If InStr(SER, WindowsApplication1.Form1.RichTextBox1.Text, TextBox1.Text) <> 0 Then
            Try 'Если ошибка то Catch
                For i = 1 To 1000000 Step 1 ' Думаю больше этого кол-ва значений не придется заменять)
                    WindowsApplication1.Form1.RichTextBox1.Focus()
                    WindowsApplication1.Form1.RichTextBox1.SelectionStart = InStr(SER, WindowsApplication1.Form1.RichTextBox1.Text, TextBox1.Text) - 1
                    WindowsApplication1.Form1.RichTextBox1.SelectionLength = Len(TextBox1.Text)
                    WindowsApplication1.Form1.RichTextBox1.SelectedText = TextBox2.Text
                    U = U + 1
                Next
                MsgBox("Заменено " & U)
            Catch
                MsgBox("Заменено " & U)
            End Try
        Else
            MsgBox("Нет!")
        End If
    End Sub
 
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SER = 1
        U = 0
    End Sub
End Class

Public Class ZamenaText
    Dim SER, U As String
    Private _inStr As Integer
 
    Private Property InStr(ByVal SER As String, ByVal p2 As String, ByVal p3 As String) As Integer
        Get
            Return _inStr
        End Get
        Set(ByVal value As Integer)
            _inStr = value
        End Set
    End Property
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Form1.rtbEdit.Text = Replace(Form1.rtbEdit.Text, Me.TextBox2.Text, Me.TextBox3.Text)
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If InStr(SER, (HTML_Editor.Form1.rtbEdit.Text), TextBox2.Text) <> 0 Then
            HTML_Editor.Form1.rtbEdit.Focus()
            HTML_Editor.Form1.rtbEdit.SelectionStart = InStr(SER, HTML_Editor.Form1.rtbEdit.Text, TextBox2.Text) - 1
            HTML_Editor.Form1.rtbEdit.SelectionLength = Len(TextBox2.Text)
            HTML_Editor.Form1.rtbEdit.SelectedText = TextBox3.Text
        Else
            MsgBox("Нет!")
        End If
    End Sub
 
 
    Private Sub ZamenaText_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SER = CStr(1)
        U = CStr(0)
    End Sub
End Class

Public Class ZamenaText
    Dim SER, U As String
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If InStr(SER, (HTML_Editor.Form1.rtbEdit.Text), TextBox2.Text) <> 0 Then
            HTML_Editor.Form1.rtbEdit.Focus()
            HTML_Editor.Form1.rtbEdit.SelectionStart = InStr(SER, HTML_Editor.Form1.rtbEdit.Text, TextBox2.Text) - 1
            HTML_Editor.Form1.rtbEdit.SelectionLength = Len(TextBox2.Text)
            HTML_Editor.Form1.rtbEdit.SelectedText = TextBox3.Text
            SER = InStr(SER, RichTextBox1.Text, TextBox1.Text) + Len(TextBox1.Text)
        Else
            MsgBox("Нет!")
        End If
    End Sub
 
 
    Private Sub ZamenaText_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SER = "1"
        U = "0"
    End Sub
End Class

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If InStr(SER, (RichTextBox1.Text), "люди") <> 0 Then
            Label1.Text = "люди"
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SER = 1
    End Sub

Public Class Form1
    Dim SER
    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        If InStr(SER, (RichTextBox1.Text), "люди") <> 0 Then
            Label1.Text = "люди"
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        SER = 1
    End Sub
End Class