npontes

Sou totalmente leigo e bem iniciante em programação, então primeiramente agradeço a paciência nas explicações. Tenho que converter uma planilha simples em arquivo TXT com delimitador do tipo "pipeline". Com o código que repasso abaixo consegui realizar parte da necessidade, porém, necessito que os números estejam preenchidos com zero à esquerda... alguém pode me ajudar? Como exemplo, coloco a tabela abaixo: (o título das colunas começam na segunda linha da planilha) COD EVENTO HORAS VALOR 01234 213 00348 000000531 00265 008 00003 000000091 00326 213 00303 000000426 00349 214 00000 000017016 00292 213 00424 000000614 00298 214 00000 000012758 e o arquivo TXT deverá ficar com o seguinte formato: 01234|213|00348|000000531 00265|008|00003|000000091 ... O problema é que quando exporto, sai da seguinte forma: 1234|213|348|531 265|208|3|91 Ou seja, os "Zeros" da esquerda desaparecem. Como deve colocar no Código VBA para resolver esse problema? Segue abaixo o script que estou usando: Sub Macro1() 'Determina o tamanho da planilha (considerando que a coluna "A" esta preenchida. UltLin = Cells(Cells.Rows.Count, "A").End(xlUp).Row 'Abre o arquivo Saida Open "C:\FOLHA.txt" For Output As #1 ' Executa um loop da linha 3 até a ultima linha de dados For i = 3 To UltLin ' Monta a linha LinExp = Left(Cells(i, 1), 5) LinExp = LinExp & "|" & Left(Cells(i, 3), 3) LinExp = LinExp & "|" & Left(Cells(i, 4), 5) LinExp = LinExp & "|" & Left(Cells(i, 5), 10) ' Grava a linha no arquivo Print #1, LinExp Next i 'Fecha o arquivo Close #1 End Sub Agradeço toda ajuda e atenção.