[Resolvido]Não consigo somar uma coluna no meu listbox

Olá galera,

estou com uma dificuldade de somar a segunda coluna do meu listbox.
Estou usando este código e chamando ele no meu botão pesquisar.
Caso queriam ver o formulário inteiro só pedir que mando.

Function soma_mes() As Variant

Dim I As Integer
Dim J As Integer
Dim ctl As Control

Set ctl = ListBox1
J = ctl.ListCount - 1
somames = 0
For I = 1 To J
somames = somames + ctl.Column(1, I)
Next I
somames = Format(somames, "currency")
txt_mensal = somames
End Function

Em um módulo:

Function SomaColuna(obj As control, iCol As Integer) As Double
Dim OldCol As Integer
Dim vTotal As Double
OldCol = obj.BoundColumn
obj.BoundColumn = iCol
For X = 0 To obj.ListCount - 1
vTotal = vTotal + obj.ItemData(X)
Next
    obj.BoundColumn = OldCol
    SomaColuna = vTotal
End Function

Para chamar, supondo que queira a informação em uma caixa texto:

Me.CaixaTexto - SomaColuna(Me.SuaListBox,x)

onde x = a coluna a ser somada

Cumprimentos.

PILOTO

Muito Obrigado pela ajuda, mais não deu certo, continua não somando.
Chamei a sua função no UserForm_Initialize, mesmo assim não somou a minha 2 coluna do meu listbox.
Se você quiser posso te enviar o código.

Acho que errei na parte que invoca a função, tente:

Me.CaixaTexto = SomaColuna(NomeSuaListBox,2)


Cumprimentos.