Visual Basic - Archivo Plano

Tengo el siguiente problema.
Necesito traspasar una tabla creada en access a un archivo de plano con formarto(ascii) de ancho fijo.
Estoy ocupanto la instricción type, put y get, de la siguente forma

Creo la estructura
type MiRegistro
id as string * 12
nombre string * 30
end type

Defino la variable de tipo record
dim ArchRegistro as MiRegistro.

Luego abro en archivo con la instrucción open
Open App.Path & "\ArchRegistro" For Random As #1 Len = len(miregistro)

Me posicioni en la primera fila
get #1,1,archregistro

Grabo los datos
for i=1 to 5
archregistro.id=i
archregistro.nombre="nombre" & i
put #1,i,archregistro
next i

Pero al abrir el archivo archregistro obtengo lo siguiente

1 nombre1 2 nombre2 3 nombre3 , etc..

y lo que yo necesito es los siguiente:

1 nombre1
2 nombre2
3 nombre3
etc..

que estoy realizando mal. si alguien me pudiera ayudar se lo agradeceria bastante.

Para solucionarlo rápido sustituye esto:

archregistro.nombre="nombre" & i

por esto:

archregistro.nombre="nombre" & i & vbNewLine