[Resolvido]soma da listbox

Ola

Pessoal tenho uma consulta com listbox , preciso somar uma coluna dessa consulta

usei  esse código de um colega

Dim soma as long

me.lista.requery

For a = 1 To Lista.listcount - 1

soma = soma + lista.column(8,a)

txtsoma = soma

Next

end sub

problema esta somando errado

4,12
4,12
4,12
5,15

Total 17,51 no campo txtsoma que é uma caixa de texto no roda pé do formulário esta dando 17,00 redondo

Olá,

Mude a variável para:

Dim soma as Double

Mude aqui para:

txtsoma = Format(soma,"#,##0.#0")

É isso

Alexandre Fim

Olá Alexandre Fim

deu certo a sua dica

muito obrigado , desculpa a demora para responder

Valeu Márcio!!
O fórum agradece.
Boa sorte e sucesso!!