Desculpem o modo que me expressei para esse topico, porem não tive outro jeito.

 

Para enviar dados de pagamento aos Bancos foi criada uma maneira que deve ser feita por arquivos txtos onde se encontra todas as informacoes necessarias para o processamento do deposito.

Cai num problema que há muito não via:

Tenho os seguintes dados:

 

a=040909610000102444

b= 15015021

c=5

 

(a+b)*c = (tem que dar o resultado)

Tente verificar os tipos de variaveis. Coloque todas (a,b,c) Double.

Esse é um bugzinho típico do vb no tocante a conversões implicitas de valores de variável... tenta assim que funfa:

Dim a As Variant, b As Variant, c As Variant
' Se vc naum passar o valor como string vira notação científica ex.: 1234565684E12

a = CDec("040909610000102444")
b = CDec("15015021")
c = CDec("5")
MsgBox CDec((a + b) * c)
Debug.Print CDec((a + b) * c)

O resultado sai 204548050075587325 = 204548050075587325

Abraços, Sidnei

Muito boa a dica e funcionou direitinho!

Para quem precisa ou já trabalha com envio de documentos via txt para Bancos (Unibanco, HSBC... ) aconselho anotar essa dica e guardar em cofre para posterior consultas porque os bancos estão unificando essa técnica.

Muito Obrigado!!!