Как сохранить переменную в текстовом файле и использовать ее в нескольких книгах для автоматического заполнения текстового поля формы пользователя

Question

Я создал пользовательскую форму для сохранения и печати документов с увеличенными серийными номерами на каждой копии. Пользовательская форма запрашивает у пользователя следующий доступный серийный номер и сколько копий нужно создать. Когда пользователь нажимает кнопку «Создать», он заполняет ячейку, сохраняет новую копию, печатает копию, а затем добавляет 1 к серийному номеру перед циклом. Я хочу сохранить окончательный серийный номер в файле .txt, сохраненном в сетевой папке, а затем извлечь этот номер в другой книге, чтобы автоматически заполнить текстовое поле серийного номера в пользовательской форме. Это возможно? Можно ли использовать переменную для автозаполнения текстового поля пользовательской формы?

Модуль для открытия формы использования:

Sub start()
    '''Retrieve stored serial number to autofill userform'''
    WO_BulkCreate.Show
End Sub

Код для пользовательской формыкнопки (nextWOnumber и createAmount из текстовых полей пользовательской формы):

Private Sub Cancel_Click()
    Unload WO_BulkCreate
End Sub

Private Sub Create_Click()
    'Variables
    Dim Amount As Integer                        'Number of WOs to be created
    Dim WO_Name As String                        'WO number
    Dim i As Integer                             'loop tracker
    Dim saveName As String                       'New File Name

    'initialize variables
    Amount = createAmount
    i = 0

    'Begin loop
    Do While i < Amount

        'Assemble WO number and filename
        WO_Name = "Customer Code-" & nextWOnumber
        saveName = WO_Name & " - part number - part description"

        'Update WO number Cell
        Sheets("WO Charge Sheet").Range("WO") = WO_Name

        'Save New Copy
        ActiveWorkbook.SaveAs Filename:="C:\filepath\" & saveName

        'Set orientation to landscape
        Worksheets("WO Charge Sheet").PageSetup.Orientation = xlLandscape
        Worksheets("Ops Planning").PageSetup.Orientation = xlLandscape

        'Print WO
        Sheets(Array("WO Charge Sheet", "Ops Planning")).PrintOut

        'Increment WO number
        nextWOnumber = nextWOnumber + 1

        'Step loop
        i = i + 1

        'End loop
    Loop

    '''Store final serial number in text file'''

    'Close form
    Unload WO_BulkCreate
End Sub

Надеюсь, это имеет смысл. Извините, если это tmi, это мой первый пост на SO

Bread Doughlas