Generacion de un txt

[pradejon]

Hola mi problema es el siguiente estoy creando facturas con la cabecera del albaran , de esta manera:
bdcabalb.MoveFirst
bdcabalb.Find "[codalb]='" & albaran_a_facturar & "'"
bdcabfactura.AddNew
bdcabfactura("codfac") = bdempresa("ult_num_fac") + 1
bdcabfactura("fecha") = Textfecha.Text
bdcabfactura("codcli") = bdcabalb("codcli")
bdclientes.MoveFirst
bdclientes.Find "[codcli]='" & bdcabalb("codcli") & "'"
bdcabfactura("agrupa") = bdclientes("agrupar_alb")
bdcabfactura("observaciones") = bdcabalb("comentarios")
bdcabfactura("base_imponible") = bdcabalb("preciopedido")
bdcabfactura("iva") = Combotipoiva.Text

Cuando creo la factura se tienen que realizar tres apuntes contables en un fichero ascii que se llama contable.txt de esta estructura:

codigo cuenta(9),concepto mvto(20),importe(10),tipo mvto(1)

El ejemplo seria el siguiente:

la factura nº 25/08 corresponde al cliente 1,tiene por base imponible 300 € y 21 € de iva ,luego el total son 321:

430000001factura nº:25/08 321 D
477000001factura nº:25/08 21 H
700000000factura nº:25/08 300 H

¿Como creo el fichero con esta estructura y guardarlo?