Visual Basic - generar archivo TXT con una MDB

Hola amigos:
Estoy generando desde una MDB un archivo TXT pero no lo genera ordenado en columnas. A partir del tercer registro se me pira........
La MDB agenda está conectada a un DATA(dtaClientes).

. Dim registro
DtaClientes.Recordset.MoveFirst
Open "C:\Agenda\TXT\agenda.txt" For Output Access Write As 1
While Not (DtaClientes.Recordset.EOF)
For Each registro In DtaClientes.Recordset.Fields
Print #1, registro.Value,
Next
Print #1, registro
DtaClientes.Recordset.MoveNext
Wend
Close #1

Desde yá muchas gracias y muchos saludos.
Hasta la próxima .
Horacio

Testea el valor de cada campo (tu lo llamas registro) para verificar si el valor de estos es null o es un espacio " ". En ese caso deberías de imprimir un chr(9) o algo así para pasar a la siguiente columna.
De todos modos no entiendo muy bien que es lo que imprimes en la orden Print #1 registro y por que esto está fuera del for (¿Es el nombre del campo?)