Tema: archivos binarios vb6

[jumbee]

Hola
Estoy programando un ejercicio en vb6 para escribir y leer datos en un archivo de tipo binario. No tengo ningun problema para escribir pero no logro que el archivo sea leido y mostrado en un listbox: ocurre un error cuando llega a " r.llave "

Open "c:\datos.bin" For Binary Lock Read As #1
Get #1,  r.llave, r
Do Until EOF(1)
List1.AddItem r.llave
Get #1, r.llave, r
Loop
Close

Nunca habia trabajado con archivos binarios asi que me seria de mucha utilidad que alguien me asesorara con este programilla