Problemas con espacios para fichero txt

[pradejon]

Hola , a la hora de generar una factura tengo que crear 3 apuntes en un fichero contable,de la siguiente manera:

4300000001Factura nº:25/08 321 D
4700000000Factura nº:25/08 21 H
7000000000Factura nº:25/08 300 H

El problema es el siguiente , queremos que empiezen todos los datos siempre a la misma altura , es decir si meto un importe que es mayor que otro no quede descuadrado y empieze antes lo siguiente,es decir que no pase esto:

430000002Factura nº:1/08 25,36 D
477000000Factura nº:1/08 1,66 H
700000000Factura nº:1/08 23,7 H

Aqui se puede ver como h empieza antes que d en la 470000 , pues quiero que empiece a la misma altura. ¿Como lo podria solucionar? Una manera seria con el tab pero como lo podria hacer para ajustarlo. Aqui os dejo el codigo de como hago los apuntes en el fichero :

file = FreeFile

numcliente = 430000000 + cliente

Open App.path & "\contable.txt" For Append As #file
Print #file, numcliente & "Factura " & "nº:" & bdempresa("ult_num_fac") & "/" & Right(Date, 2) & " " & Round(baseimpo + iva, 2) & " D"
Print #file, Tab(1), "477000000" & "Factura " & "nº:" & bdempresa("ult_num_fac") & "/" & Right(Date, 2) & " " & Round(iva, 2) & " H"
Print #file, Tab(1); "700000000" & "Factura " & "nº:" & bdempresa("ult_num_fac") & "/" & Right(Date, 2) & " " & CDbl(baseimpo) & " H"
Close #file



Muchas gracias