Обновление положения формы по Клику | Word - VBA

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

Здравствуйте Коллеги!

Всех с наступающим,

Новым Годом!

Следующая ситуация, есть Форма с выравниванием по левому краю верхнего угла монитора. Форма запускается через Module1. Форма имеет два поля (данные для запоминания прописаны в txt) для настройки положения Формы и CommandButton1 обновление данных). Но по CommandButton1 обновления не происходит, нужно закрывать форму и запускать по новой через Module1. Через запуск Формы обновления не происходит. Как сделать чтобы обновления вступали в силу после нажатия CommandButton1? В чем ошибка? Что делаю не так?

'Option Explicit
 
Private Sub CommandButton1_Click()
    If MsgBox("Параметры вствупят в силу при следующем запуске ФОРМЫ" _
            & vbCr & "ПЕРЕЗАГРУЗИТЬ ?", vbYesNo + 64) = vbNo Then Exit Sub
    Unload Me
    UserForm1.Show
 
    MsgBox TextBox1 & "  " & TextBox2
End Sub
 
Private Sub UserForm_Initialize()
    Const strFN As String = "C:\ПечатьДокумента\txt\Read.txt"
    Dim strText As String
    Open strFN For Input As #1
        Line Input #1, Value
        Me.TextBox1 = Value
        Line Input #1, Value
        Me.TextBox2 = Value
    Close #1
End Sub
 
Private Sub UserForm_Terminate()
    Const strFN As String = "C:\ПечатьДокумента\txt\Read.txt"
    Open strFN For Output As #1
        Print #1, Me.TextBox1.Value
        Print #1, Me.TextBox2.Value
    Close #1
End Sub

С уважением, Аватар-С!

Решение задачи: «Обновление положения формы по Клику | Word»

textual
                            Листинг программы 
                        

                            Private Sub CommandButton1_Click()
    If MsgBox("Параметры вствупят в силу при следующем запуске ФОРМЫ" _
        & vbCr & "ПЕРЕЗАГРУЗИТЬ ?", vbYesNo + 64) = vbNo Then Exit Sub
    UserForm1.Top = UserForm1.TextBox1.Value
    UserForm1.Left = UserForm1.TextBox2.Value
    Unload Me
    UserForm1.Show
End Sub
 
Private Sub UserForm_Initialize()
    Const strFN As String = "C:\ПечатьДокумента\txt\Read.txt"
    Dim strText As String
    Open strFN For Input As #1
        Line Input #1, Value
        Me.TextBox1 = Value
        Line Input #1, Value
        Me.TextBox2 = Value
    Close #1
    UserForm1.Top = UserForm1.TextBox1.Value
    UserForm1.Left = UserForm1.TextBox2.Value
End Sub
 
Private Sub UserForm_Terminate()
    Const strFN As String = "C:\ПечатьДокумента\txt\Read.txt"
    Open strFN For Output As #1
        Print #1, Me.TextBox1.Value
        Print #1, Me.TextBox2.Value
    Close #1
End Sub
                        