[Resolvido]Instrução somar ListBox

Bom dia
estou usando a seguinte instrução para somar uma listBox ,porém ela retorna valor redondo ,sem os centavos
gostaria que retorne os centavos também

Dim soma As Long
For A = 1 To lstdepesas.ListCount - 1
soma = soma + lstdepesas.Column(2, A)
TxtSoma = soma

Next

Bom dia. Coloque 2 casas decimais nas propriedades. Do campo

Bom dia crysostomo
Campo está em formato moeda ,2 casas decimais ,mas não funcionou

Perfeito Avelino
Alterei para Currency e funcionou
Obrigado também ao amigo crysostomo que se dispos a ajudar Obrigado!