Сохранение данных программы

Option Explicit: Dim WithEvents x As CheckBox
Private Sub Form_Load(): Set x = Controls.Add("vb.CheckBox", "x"): With x: .Move 90, 90, 90 * 20, 90 * 4: .Caption = "Сохрани меня": .Visible = 1: x.Value = GetSetting(App.Path, Me.Name, x.Name, x.Value): End With: End Sub
Private Sub Form_Unload(Cancel As Integer): SaveSetting App.Path, Me.Name, x.Name, x.Value: End Sub

Option Explicit
 
Private Sub Command1_Click() ' Кнопка Сохранить
 Dim MyFile 'Объявляем переменную для свободного файла
 MyFile = FreeFile ' Присваиваем свободный канал, для работы с файлами
    Open ("TEST.txt") For Output As #MyFile 'Открываем файл TEST.TXT для записи
        Print #MyFile, Text1.Text ' Записываем изменённый текст в файл
    Close #MyFile 'Закрываем файл
End Sub
 
Private Sub Form_Load() ' Чтение файла в строковую переменную
 Dim MyFile 'Объявляем переменную для свободного файла
 Dim S As String 'Переменная для хранения считанных данных
 MyFile = FreeFile ' Присваиваем свободный канал, для работы с файлами
     Open ("TEST.txt") For Input As #MyFile 'Открываем файл TEST.TXT для чтения
      Input #MyFile, S  'Считываем строку в переменную S
      Text1.Text = S ' Отображаем текст в редакторе
     Close #MyFile 'Закрываем файл
End Sub

While Not EOF(1)
   Input #MyFile, S
   Text1.Text = Text1.Text & S
Wend