Считывание информации с TextBox и запись в txt - VB

Формулировка задачи:

Здравствуйте. Нужен код для считывания информации с TextBox и запись в txt. Код должен запускаться при нажатии на кнопку и пользователь должен указать место для сохранения txt.

Решение задачи: «Считывание информации с TextBox и запись в txt»

textual
                            Листинг программы 
                        
                            Option Explicit
 
Private Sub Command1_Click()
    Const BIF_RETURNONLYFSDIRS = 1&
    
    Dim WshShell As Object, WshFolder As Object, ff As Integer, FileName As String
 
    Set WshShell = CreateObject("Shell.Application") 'New Shell32.Shell
 
    Set WshFolder = WshShell.BrowseForFolder(Me.hWnd, "Select a Folder", BIF_RETURNONLYFSDIRS)
 
    FileName = InputBox("Введите имя файла: ")
 
    ff = FreeFile()
 
    Open WshFolder.self.Path & "\" & FileName & ".txt" For Output As #ff
 
        Print #ff, Text1.Text
 
    Close #ff
 
    set WshFolder = nothing: Set WshShell = nothing
End Sub