Запомнить/прочитать данные в txt

Private Sub CommandButton2_Click()
    Dim oFD As FileDialog
    Dim x, lf As Long
    Set oFD = Application.FileDialog(msoFileDialogFolderPicker)
    With oFD
        .Title = "Выбрать папку с отчетами"
        .Filters.Clear
        .InitialView = msoFileDialogViewLargeIcons
        If oFD.Show = 0 Then Exit Sub
        x = .SelectedItems(1)
        TextBox3 = x
    End With
End Sub
Private Sub UserForm_Initialize()
    Const strFN As String = "C:\ПечатьДокумента\Запомнить2.txt"
    Dim strText As String
    Open strFN For Input As #1
        Line Input #1, strText
        Me.TextBox1.Text = strText
        Line Input #1, strText
        Me.TextBox3.Text = strText
        Line Input #1, Value
        Me.CheckBox1.Value = Value
    Close #1
End Sub
Private Sub UserForm_Terminate()
    Const strFN As String = "C:\ПечатьДокумента\Запомнить2.txt"
    Open strFN For Output As #1
        Print #1, Me.TextBox1.Text
        Print #1, Me.TextBox3.Text
        Print #1, Me.CheckBox1.Value
    Close #1
End Sub

Private Sub CommandButton2_Click()
    Dim oFD As FileDialog
    Dim x, lf As Long
    Set oFD = Application.FileDialog(msoFileDialogFolderPicker)
    With oFD
        .Title = "Выбрать папку с отчетами"
        .Filters.Clear
        .InitialView = msoFileDialogViewLargeIcons
        If oFD.Show = 0 Then Exit Sub
        x = .SelectedItems(1)
        TextBox3 = x
    End With
End Sub
Private Sub CommandButton3_Click()
    Unload Me
End Sub
Private Sub CommandButton4_Click()
    End
End Sub
Private Sub UserForm_Initialize()
    Const strFN As String = "C:\ПечатьДокумента\Запомнить2.txt"
    Dim strText As String
    Open strFN For Input As #1
        Line Input #1, strText
        Me.TextBox1.Text = strText
        Line Input #1, strText
        Me.TextBox3.Text = strText
        Line Input #1, Value
        Me.CheckBox1.Value = Value
    Close #1
End Sub
Private Sub UserForm_Terminate()
    Const strFN As String = "C:\ПечатьДокумента\Запомнить2.txt"
    Open strFN For Output As #1
        Print #1, Me.TextBox1.Text
        Print #1, Me.TextBox3.Text
        Print #1, Me.CheckBox1.Value
    Close #1
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then MsgBox "Форму закрыли крестиком", 64
    If CloseMode = 1 Then MsgBox "Форму закрыли программно - через Unload", 64
    
    ' Cancel=true ' отменяем закрытие
End Sub