Bom dia amigos,

Mais uma vez venho recorer aos gurus do excel para a solução do humilde problema que trago.

Tenho dados em um listbox, que são gerados em txt para emissão de relatório diário. O que ocorre que a formatação não está legal, e quero saber se tem como alinhar os dados abaixo:

Pedido| Cliente | Nome_Impresso| ProdutoValor_Pedido | Valor_Pago| Data_Entrega
2039| COPYGRAF | GLASS NORT| V.T. 1500 4x0R$ 45,00 | R$ 45,00| 24/04/2012
1990| DEFINA | HALLYANA| V.T. 500 4X1R$ 24,00 | R$ 24,00| 20/04/2012
1918| GUARARAPES | MUNDO DOS DESCARTAVEIS| V.T. 1000 4X1R$ 34,00 | R$ 39,00| 24/04/2012
1850| ENCART GRAFICA | CENTRAL DOS USADOS| V.T. 1000 4x0R$ 34,00 | R$ 39,00| 24/04/2012
1848| DEFINA | AB ANDRE| V.T. 1000 4X1R$ 34,00 | R$ 34,00| 23/04/2012

Segue abaixo o código atual para analise:

Private Sub CommandButton1_Click()
Const FOR_READING = 1
Const FOR_WRITING = 2
Const FOR_APPENDING = 8

Dim fso As Object
Dim ts As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("E:Arquivos AQUINova Planilha Revenda PrintSistema V2ResumosDiarios" & Format(Date, "dd-mm-yyyy") & ".txt", FOR_WRITING, True)

ts.WriteLine ListBox1.Column(0, 0) & "| " & ListBox1.Column(1, 0) & " | " & ListBox1.Column(2, 0) & "| " & ListBox1.Column(3, 0) & ListBox1.Column(5, 0) & " | " & ListBox1.Column(6, 0) & "| " & ListBox1.Column(7, 0)

For i = 1 To ListBox1.ListCount - 1
ts.WriteLine ListBox1.Column(0, i) & "| " & ListBox1.Column(1, i) & " | " & ListBox1.Column(2, i) & "| " & ListBox1.Column(3, i) & ListBox1.Column(5, i) & " | " & ListBox1.Column(6, i) & "| " & ListBox1.Column(7, i)
Next

'Dim ValorDeRetorno As Integer
'    ValorDeRetorno = Shell("C:WindowsNotepad.exe c:Conferencia.txt", 1)
'    AppActivate ValorDeRetorno
'    SendKeys "%A", True
'    SendKeys "I", True

End Sub