Изменение данных в текстовом файле

Question

Кто-нибудь помогает мне изменить код, используемый в списке для использования в текстовом поле?

Private  Sub TextFile_FindReplace()

Dim y, i As Long, ii As Long

If Me.ListBox1.ListIndex = -1 Then Exit Sub
y = Split(x(Me.ListBox1.ListIndex), "|")

For i = 0 To Me.ListBox1.ColumnCount - 1
    If Me("textbox" & i + 1) <> "" Then y(i) = Me("textbox" & i + 1)
Next

x(Me.ListBox1.ListIndex) = Join(y, "|")
Open ThisWorkbook.Path & "\REGISTER\users.txt" For Output As #1
    Print #1, Join(x, vbNewLine);
Close #1
UserForm_Initialize

End sub

Мне нужно использовать этот код для текстового поля, так как он используется в списке.