Сохранение и загрузка настроек из файла

Open "Dat.txt" For Output As #1: ' сохраняем
For i = 1 To NomLin:
   Write #1, Linii(i, 1), Linii(i, 2), Linii(i, 3), Linii(i, 4):
Next: Close #1:
'===========================================
Open "Dat.txt" For Input As #1: ' загружаем
 Do While EOF(1) = False
   NomLin = NomLin + 1:
   Input #1, Linii(NomLin, 1), Linii(NomLin, 2), Linii(NomLin, 3), Linii(NomLin, 4):
   Pic1.Line (Linii(NomLin, 1), Linii(NomLin, 2))-(Linii(NomLin, 3), Linii(NomLin, 4))
 Loop
Close #1:

Option Explicit
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Dim buff As String
Dim ver As String
Dim ver1 As String
 
Private Sub Command1_Click()
    ' запись
    ver = "данные"
    WritePrivateProfileString "раздел", "имя переменной", ver, App.Path & "/version.ini" ' Записываем в файл
End Sub
 
Private Sub Command2_Click()
    ' чтение
    buff = Space(255) ' Выделяем место в памяти
    ver1 = GetPrivateProfileString("раздел", "имя переменной", "пусто", buff, 255, App.Path & "/version.ini") ' Считываем
    buff = Left(buff, ver1) ' убираем пробелы
End Sub