Faltou o arquivo txt para testes.

Boa noite amigo. Primeiro vc está usando a função int que retorna números inteiros se vc quer decimais com duas casas? Depois vc multiplica por 100 que novamente elimina decimais? Desnecessário. Por fim para sua conversão utilize o format "0000000000000.00" com a quantidade de números que deseja sem multiplicar.

Marcelo ,
primeiramente muito obrigado !!!
Esta opção resolveu em parte , porem o valor retornado é de 00000311682,00 mas não traz o centavos de maneira correta o valor que gostaria de retorno é 00000311682,91.

Att.

Tenta então "0000000.##", o número de zeros que desejar;

Outra coisa, como falei você não pode usar int, se não ele sempre vai retornar números inteiros. ou seja 00 no final.

Boa noite amigo. Primeiro vc está usando a função int que retorna números inteiros se vc quer decimais com duas casas? Depois vc multiplica por 100 que novamente elimina decimais? Desnecessário. Por fim para sua conversão utilize o format "0000000000000.00" com a quantidade de números que deseja sem multiplicar.

Concordo com o que o colega já citou, e como desconherço o arq testo, tente desta forma :

VALOR__DO_DOCUMENTO = Format(AreaTrab.Cells(i, 8), "0000000000000.00")

[]s

Marcelo/Mauro , deu certo

Muito obrigado pelo ajuda .

Não sei o que aconteceu mas enviei o arquivo segue o arquivo regularizado

ABRAÇOS

Eduardo

Marcelo/Mauro , deu certo

Muito obrigado pelo ajuda .

Não sei o que aconteceu mas enviei o arquivo segue o arquivo regularizado

ABRAÇOS

Eduardo