Изменение пути сохранения файлов - Visual Basic .NET - Ответ 4052832

Public Class Form1
    Dim q As String
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Button3.Text = "..."
        Button2.Text = "Показать"
        TextBox1.Text = "Новый документ"
        TextBox2.Text = "Введите текст"
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedSingle
        Me.Text = "Saver"
    End Sub
 
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        If Folder1.ShowDialog = Windows.Forms.DialogResult.OK Then
            q = Folder1.SelectedPath()
            Dim qwerty As New IO.StreamWriter(q & "\" & TextBox1.Text & ".txt")
            qwerty.Write(TextBox2.Text)
            qwerty.Close()
        End If
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If q = "" Then
            MsgBox("Путь отсутствует...", MsgBoxStyle.Information, "Error")
        Else
            Dim qwerty2 As New IO.StreamWriter(Application.StartupPath & "\Path.txt")
            qwerty2.Write(q)
            qwerty2.Close()
            Dim qqq As String = IO.File.ReadAllText(Application.StartupPath & "\Path.txt")
            Process.Start(qqq)
        End If
    End Sub
End Class