[Resolvido]Soma de caixa de listagem com erro

Boa noite amigos

No exemplo que anexo, aonde está o erro da soma da caixa de listagem.

Devia dar 21,65 € mas só dá 17,00 €.

Obrigado


http://ge.tt/9dxm08R2/v/0?c

Olá Assis, troque o Val por CCur, ficando assim:

Código:

If CCur(Texto77.Column(1, I)) > 0 Then Soma = Soma + CCur(Texto77.Column(1, I))

Abraço

Obrigado Teixeira


Por ser Moeda ?

Assis, o Val traz o valor inteiro, teste na janela immediate

Código:

?val(12.3)

e veja o resultado.

Poderia ser também o CDbl

Abraço

Obrigado