Office - RECUPERARDATOS TEXTBOX

DISPONGO DE UN FORMULARIO CON UN TEXTBOX Y UN BOTON PARA GRABAR EN UN ARCHIVO TXT LOS DATOS QUE SE INTRODUCEN EN EL TEXTBOX. EL CASO ES QUE EL TEXTBOX INTRODUZCO VARIAS LÍNEAS DE TEXTO Y GRABO, PERO AL RECUPERAR EL FORMULARIO SÓLAMENTE SALE LA ÚLTIMA LÍNEA DEL ARCHIVO TXT. ¿ QUE FALLA EN EL COMANDO? ES EL SIGUIENTE:
Dim ImpRlg As textbox
Dim Filename As String
Dim txt As String, Char As String * 1
Dim Data
' Esta línea es otra que cambia respecto de los otros TextBox, donde especificaremos
' su nombre. En este caso "TextBox2"
Set ImpRlg = ComboBox1
On Error Resume Next
' Se especificará la ruta del archivo que contiene los datos a devolver al TextBox.
Filename = "C:\PROYECTOFUT\DATOS DE CAMPO\zona.txt"
Open Filename For Input As #1
If Err <> 0 Then
MsgBox "No Existe ese archivo"
Exit Sub
End If
txt = ""
Application.ScreenUpdating = False
Do Until EOF(1)
Line Input #1, Data
For i = 1 To Len(Data)
Char = Mid(Data, i, 1)
If Char = "," Then
' Aqui se cambiará el tipo y nombre del TextBox o ComboBox.
TextBox2(r, C) = txt
C = C + 1
txt = ""
ElseIf i = Len(Data) Then ' end of line
If Char <> Chr(34) Then txt = txt & Char
' Esta es la última línea que varia respecto de los otros TextBox, donde tambien se
' especifica el nombre concreto del TextBox. En éste caso "TexBox2".
ComboBox1 = txt
txt = ""
ElseIf Char <> Chr(34) Then
txt = txt & Char
End If
Next i
C = 0
r = r + 1
Loop
Close #1
Application.ScreenUpdating = True

Si quieres enviame el archivo excel completo para revisarlo mejor, saludos