(Resolvido) Zeros à esquerda

[DANYY]

Bom dia!! gente preciso de ajuda..seguinte, preciso que seja gerado no arquivo txt uma sequencia de numeros de acordo com a quantidade de registros... ai fiz o seguinte:

numi = Val(contador)
numf = Val(contador)
For contador = numi To numf
Next
Print #arq2, "CTA" & contador

ai belezinha ta gerando o arquivo txt e a cada linha na posicao contador ta gerando os numeros sequencias de 1 até o ultimo registro exatamente como eu preciso...só que esse campo deveria ter 5 caracteres por exemplo ao invés de gerar o txt:

CTA1

CTA2

teria que gerar:

CTA00001

CTA00002

como que eu faço pra sair dessa forma? desde já agradeço a todos e tenha uma ótima terça feiraa!!

Editado Agosto 3, 2010 por Jonathan Queiroz
Remover caixa alta do título conforme regra 3.7 e adicionar tag's (Jonathan)

[fercosmig]

olha um exemplo

Dim complemento As String
complemento = "000000000"

Dim numero As Integer
numero = 152

Dim str As String
str = "CTA" & Right(complemento & numero, 5)

[DANYY]

olha um exemplo

Dim complemento As String
complemento = "000000000"

Dim numero As Integer
numero = 152

Dim str As String
str = "CTA" & Right(complemento & numero, 5)

Ola muito obrigada mesmo pela informacao!! deu certo!!

olha um exemplo

Dim complemento As String
complemento = "000000000"

Dim numero As Integer
numero = 152

Dim str As String
str = "CTA" & Right(complemento & numero, 5)

Ola muito obrigada mesmo pela informacao!! deu certo!!

só mais uma coisinha...quando ele iniciar a contagem ele inicia do 00000, como q eu faço pra iniciar do 00001?

brigaduuu

[fercosmig]

numi = Val(contador)
if numi = 0 then numi = numi + 1
numf = Val(contador)

[DANYY]

complemento = "00000000"

numi = Val(contador)

If numi = "0" Then numi = numi + 1

numf = Val(contador)

str = Right(complemento & contador, 5)

For contador = numi To numf

Next

Print #arq2, "CTA" & str & Space(3)

o codigo esta assim mais não ta dando certo...continua gerando com a primeira linha como CTA00000 ao invés de CTA00001

[fercosmig]

str = Right(complemento & contador, 5)

muda para

str = Right(complemento & numi, 5)

ou adiciona 1 em contador

[DANYY]

aaah muitoo muitooo muitooo obrigadinha mesmooo!!!! deu tudo certo!! valeu!! bjs