Private Sub Strip_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Strip.Click
        RichTextBox1.Text = String.Empty
        MsgBox("THIS MAY TAKE SOME TIME - MAY EVEN SHOW NOT RESPONDING - JUST WAIT - YOU CAN CONTINUE TO WORK WHILE THIS IS RUNNING", vbOKCancel)
        RichTextBox1.Text &= "(THIS DOCUMENT HAS BEEN MODIFIED WITH STRIP-N-SAVE)" & vbNewLine
        'Correcting Blank Values on Form
        If TextBox5.Text = "" Then
            TextBox5.Text = "50"
        End If
        If TextBox4.Text = "" Then
            TextBox4.Text = "20"
        End If
        If TextBox3.Text = "" Then
            TextBox3.Text = "20"
        End If
        If TextBox1.Text = "" Then
            TextBox1.Text = "M6"
        End If
        If TextBox2.Text = "" Then
            TextBox2.Text = TextBox1.Text
        End If

        'Variables
        Dim endLine = CInt(TextBox5.Text)
        Dim LineCount As Integer = Document.Lines.Length
        Dim randarray(0 To LineCount) As Long
        ProgressBar1.Maximum = UBound(randarray)
        Dim StartLine = CInt(TextBox3.Text)
        Dim Ending = CInt(TextBox4.Text)
        'Correcting Input if Document too Short
        If LineCount < endLine - 1 Then
            endLine = LineCount
        End If
        'Coping First Lines At all times
        For x As Integer = 0 To endLine - 1
            RichTextBox1.Text &= Document.Lines(x) & vbNewLine
            ProgressBar1.Value = x
        Next
        'Search For Text and Copy if Exists
        For x As Integer = endLine To LineCount - 1
            If Document.Lines(x).Contains(TextBox1.Text) Or Document.Lines(x).Contains(TextBox2.Text) Then
                If LineCount <= x + Ending Then
                    Ending = 10
                End If
                If LineCount <= x + Ending Then
                    Ending = 5
                End If
                If LineCount <= x + Ending Then
                    Ending = 1
                End If
                If LineCount <= x + Ending Then
                    Ending = 0
                End If
                If LineCount <= x + Ending Then
                    Exit For
                End If
                For k As Integer = x - StartLine To x + Ending
                    RichTextBox1.Text &= Document.Lines(k) & vbNewLine
                    If LineCount <= k Then
                        Exit For
                    End If

                Next
                x = x + Ending
                ProgressBar1.Value = x
                'Stop if Document is Too Short
                If x >= LineCount - 1 Then
                    Exit For
                End If
            Else
                If x >= LineCount - 1 Then
                    Exit For
                End If
            End If
            'Stop if Document is Too Short
            If x >= LineCount - 1 Then
                Exit For
            End If
        Next
        ProgressBar1.Value = LineCount
        MsgBox("Document Complete - Press Save", vbOKCancel)

    End Sub

dim NewStringBuilder As New System.Text.StringBuilder

RichTextBox1.Text &= Document.Lines(x) & vbNewLine