В текстовом поле прописать путь, по которому требуется сохранить файл - VB

Option Explicit
 
Const FileName = "\1.ini"
Dim ff&, s$
 
Sub SaveIni(iniText$)
    ff = FreeFile
    Open (App.Path & FileName) For Output As #ff 'Открываем файл для записи
    Print #ff, iniText 'Сохраняем текст
    Close #ff 'Закрываем
End Sub
 
Function LoadIni() As String
    Dim b As Boolean
    On Error GoTo 1
    ff = FreeFile
    Open (App.Path & FileName) For Input As #ff 'Открываем файл для чтения
    Do While Not EOF(ff) 'Читаем до конца
        Input #ff, s 'в переменную
        If b Then LoadIni = LoadIni & vbCrLf & s Else LoadIni = s: b = True
    Loop
1
    Close #ff
End Function
 
Private Sub Form_Load()
    s = LoadIni
    If Len(s) Then MsgBox s
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    SaveIni "путь или чтото еще"
End Sub