amigos estou exportando os dados da minha tabela para o txt, entao preciso colocar elas na ordem que me medem no layout.
primeiro to fazendo assim.

Dim Linha As String

connect
  
    Open App.Path & [Ô]\ArquivoDadosTexto.txt[Ô] For Output As #1
  
  Sql = [Ô]select a.codp, a.descricao,a.icms, a.unidades,  b.estoque, c.pratl from cad_produto a, estoque b, precos c where a.codp = b.codp and a.codp = c.codp and a.ativo = [ô][Ô] & [Ô]S[Ô] & [Ô][ô]  order by a.descricao[Ô]
      
         Rs.Open Sql, Con
  
    Rs.MoveFirst
    
    Do While Not Rs.EOF
      
        Print #1, [Ô]L[Ô], Format(Rs!codp, [Ô]00000000000[Ô]), Format(Rs!descricao, [Ô]000000000000000000000000000000000000000000000[Ô])
        
        Rs.MoveNext
    Loop
    
    Close #1

mas eu preciso que esses dados fiquem de acordo como seguinte layout:



Registro de Movimento

Campo    Posição    Tamanho    Máscara
Indentificação      1   a     1    1    L
Código do Produto      2   a   11    10    9999999999
Nome do Produto    12   a   61    50    XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Classificação IPI    62   a   73    12    9999.99.9999
Quantidade Estoque    74   a   84    11    99999999,99
Valor Unitário    85   a   95    11    99999999,99


pois o que eu estou salvando ta ficando assim:

L             00000017075   100PS 10G C/1                          
L             00000018727   4-14-08 FERTILIZANTE 1KG C/1            
L             00000027108   4-4-8 + MOCRO 120ML C/1                
L             00000024966   A.D.E.PFIZER 50ML C/1                  

onde o correto seria
L000000187274-14-08 FERTILIZANTE 1KG C/1            
L000000271084-4-8 + MOCRO 120ML C/1                
L00000024966A.D.E.PFIZER 50ML C/1        

como posso fazer neste caso.
obrigado