Crear archivo ascii desde vb6.0

Buenas tardes experto, me gustaría que me ayudaras a crear un archivo .dat desde visual basic 6.0, con longitud fija en los datos.

Tengo MsFlexgrid con las siguientes columnas: id,apellido,nombre,edad y "por" numero de filas, tengo que crear un archivo .dat con esos datos.

Tengo el siguiente código que me hace bien la longitud de cada campo, el problema es que me lo pone en el archivo .dat todos los datos seguidos,y yo los necesito así

1perez0000000jose00000028
254corona000000pedro0000019
36sanches00000panfila00000

bueno creo que al pegar los datos no quedaron bien alineadas pero en el archivo si quedan bien

el código que estoy utilizando es el siguiente.

Option Explicit
Private Type T_personas
id As String * 3
apellido As String * 12
nombre As String * 10
edad As String * 2
End Type
Dim persona As T_personas
Dim registro As Integer

Private Sub Command2_Click()
Dim id As String
Dim apellido As String
Dim nombre As String
Dim edad As String
Dim i As Integer
Open App.Path + "\" + "datos.dat" For Random As #1 Len = Len(persona)
For i = 1 To FlexGrid1.Rows - 1
persona.id = FlexGrid1.TextMatrix(i, 0)
persona.apellido = FlexGrid1.TextMatrix(i, 1)
persona.nombre = FlexGrid1.TextMatrix(i, 2)
persona.edad = FlexGrid1.TextMatrix(i, 3)
registro = i
Put #1, registro, persona
Next i
Close #1
MsgBox "Se ha creado el archivo", vbInformation, "aviso"
End Sub

Agradezco de antemano tu apoyo. Saludos