Dim strStreamWriter As StreamWriter
            Dim strStreamW As Stream = Nothing
            strStreamWriter = Nothing
            Dim strStreamWriter2 As StreamWriter
            Dim strStreamW2 As Stream = Nothing
            strStreamWriter = Nothing
            Dim ContenidoArchivo As String = Nothing
            Dim PathArchivo As String = ".\Variables.txt"
            Dim PathArchivo2 As String = ".\INSERTS.txt"

            Dim PathCarpeta As String = Replace(TextBox1.Text, PathArchivo.Substring(PathArchivo.LastIndexOf("/") + 1), "")

            'If Not Directory.Exists(PathCarpeta) Then
            '    Directory.CreateDirectory(PathCarpeta)
            'End If

            Do While Match.Success And Match2.Success

                Try

                    If File.Exists(PathArchivo) Then
                        strStreamW = File.Open(PathArchivo, FileMode.Append)
                    Else
                        strStreamW = File.Create(PathArchivo)
                    End If

                    strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.Default)

                    strStreamWriter.Write(Match.Groups("prueba").ToString & Environment.NewLine)
                    Match = Match.NextMatch()

                    strStreamWriter.Close()

                    If File.Exists(PathArchivo2) Then
                        strStreamW2 = File.Open(PathArchivo2, FileMode.Append)
                    Else
                        strStreamW2 = File.Create(PathArchivo2)
                    End If

                    strStreamWriter2 = New StreamWriter(strStreamW2, System.Text.Encoding.Default)

                    strStreamWriter2.Write(Match.Groups("prueba2").ToString & Environment.NewLine)
                    Match = Match.NextMatch()

                    strStreamWriter2.Close()

                Catch ex As Exception
                    MsgBox("Error al Guardar la ingormacion en el archivo. " & ex.ToString, MsgBoxStyle.Critical, Application.ProductName)
                    strStreamWriter.Close()
                End Try
            Loop