Visual Basic - No cambia de linea al leer .Dat!!!

Buenas compañeros le agradezco al que sepa

Tengo un archivo .dat que a la hora de abrirlo en el blog de notas me sale esto

1,20070619
000000,4,20070619,&

Esta bien yo se lo que significan los numeros, pero a la hora de leerlo en VB

''''FORMULARIO

Open "C:\NomiPlus\cBds\Punchs.dat" For Random As #1 Len = Len(reg)

w = 1
While EOF(1) <> True
Get #1, w, reg
txtLinea = reg.linea
lstDatos.AddItem (txtLinea)
w = w + 1
Wend

''''MODULO
Option Explicit
Type registro
linea As String * 255
End Type
Global reg As registro

me sale esto: 1,20070619▌▌ 000000,4,20070619,&▌▌

osea todo en una misma linea necesito que me reconozca cada linea como un registro, pero no lo hace, alguien sabe xq?

NOTA: Los simbolos de cambio de linea (▌▌) son simbolos de word xq aqui a la hora de pegar la linea completa si reconoce que es cambio de linea!

SALUDOS

Nunca la he usado me podrias dar un ejemplo?

No no la tengo pero lei algo de Line Input que veo que de algo puede servir lo has usado?

Si es un archivo de texto, podría servirte esto:

Open "C:\NomiPlus\cBds\Punchs.dat" For Input As #1
While not EOF(1)
Line input #1, txtLinea
lstDatos.AddItem (txtLinea)
Wend

que te pasa nuevo recagado.... que no puedes poner un %%$·%$· ejemplo???

se nota ue no tienes ni la menor idea de que se estaba preguntando, mejor ven y toca mis bolas, que al fin y al cabo es lo unico que sabes hacer muy bien, ja ja ja ja

acaso importa donde lo ponga... si no eres tan estup1d0 como para que te hubieras dado cuenta que el mensaje era para vos.... ja ja ja ja

y si... esa persona si puso un codigo de ejemplo, deberías aprender como contesta la gente mayor, a ver si se te pega algo.... nuevo recagado..... ja ja ja

Bueno retomando el tema y dejandose de babosadas, gracias a "yo"
que puso este codigo
Open "C:\NomiPlus\cBds\Punchs.dat" For Input As #1
While not EOF(1)
Line input #1, txtLinea
lstDatos.AddItem (txtLinea)
Wend

Asi era