Problemas al guardar y abrir archivos .dat

[kakinets]

Hola a todos estoy renegando con los archivos .dat. primero les doy el codigo que uso y luego le esplico lo que me sucede.

Para abriri los archivos *.dat:

Código [Seleccionar] Expandir

On Error Resume Next
Dim foo As Integer
    foo = FreeFile
    Open "C:\user.dat" For Input As #foo
       Form2.Text1.Text = Input(LOF(foo), #foo)
Close #foo


Para guardar los archivos *.dat

Código [Seleccionar] Expandir

On Error Resume Next
Open "C:\user.dat" For Output As #1
Print #1, Text1.Text
Close #1

bueno ahora el problema es que cuando yo guardo los datos y cierro el programa y luego lu buelvo abrir en el text1.text me sale lo que yo abia guardado repetido o con espacios.

Espero que me puedan expicar por que sucede este fenomeno.


            Saludos KaiNets.