[Resolvido]os centavos nao parecem

Amigos boa noite.
buscando aqui no forum uma  função para somar os valores de listbox encontrei um exemplo do mestre J Paulo:
fiz as alteraçoes de acordo com os nomes dos meus controles e funcionou.
Porém o campo onde deveria aparecer a soma dos valores fica arredondado e não soma os centavos:
abaixo o codigo com os devido comentarios respeitando o autor

Function fncSomaListBox(lst As Access.ListBox, intColuna As Integer) As Double
'By JPaulo ? Maximo Access Outubro/2013
'Função soma listbox numa caixa de texto no seu formulário
Dim intLinha As Long
Dim intTotal As Double
'Inicia soma com valor zero
intTotal = 0
'Percorre linha a linha na sua lista
   With lst
       For intLinha = Abs(.ColumnHeads) To (.ListCount - 1)
       intTotal = intTotal + Val(.Column(intColuna, intLinha))
       Next intLinha
   End With
'Insere a soma total na função
fncSomaListBox = intTotal
'fncSomaListBox = Format(fncSomaListBox, "#,##0.00")
'Format(valor, "#,##0.00")
Me.vrCompra = fncSomaListBox   <=========== Aqui está o problema o valor é carregado na caixa de texto, porem nao aparecem os centavos exemplo:
fiz um lançamento de 2 itens de veria dar um valor de R$169,80 mas fica apenas R$ 169,00
tentei varias alteraçoes tipo:
fncSomaListBox = Format(fncSomaListBox, "currency")
fncSomaListBox = Format(fncSomaListBox, "#,##0.00")
fncSomaListBox = Format(fncSomaListBox, "#,##0,00")
mas nao adiantou
alguma ideia de como fazer?

Obrigado

olhando meus arquivos antigos localizei  um outro codigo do mestre J Paulo e resolvi o problema,
Obrigado

Boa noite
Faltou o "Resolvido"

prezado Alexandre
peço desculpas nao me atentei.
ja corrigi