[Resolvido]Erro ao somar coluna listbox

Private Sub ListaCompras_AfterUpdate()
Dim k As Long, soma As Double
For k = 1 To Me!ListaCompras.ListCount - 1
soma = soma + CDbl(IIf(IsNumeric(Me!ListaCompras.Column(5, k)), Me!ListaCompras.Column(5, k), 0))
Next k
Me!txtResultado = soma
End Sub

Amigos coloquei esse código para somar a coluna 5 de uma listbox,só que não ta somando,como soma esta me trazendo na caixatexto R$0,00. que estou fazendo de errado.Essa listbox tem origem de uma consulta.

Você está contando as colunas à partir de 0 ou de 1? A contagem começa em 0. Portanto, se for a quinta coluna, é na verdade coluna 4.

Obrigado Criquio, eu que errei ao por o nome da caixa texto.
Agora esta funcionando.

Cumprimentos.