[Resolvido]Somar Listbox by JPaulo

Olá . . .
Segui este tópico do Mestre JPaulo

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
End Function


Chamar a função por VBA;

'3 é numero da coluna na sua lista, onde se encontra o valor a somar
'As listas iniciam pela coluna zero (0)

Me.SuaCaixaTexto.Value = fncSomaListBox(Me.SuaListBox, 3)

'Se for na origem da SuaCaixaTexto
= fncSomaListBox(SuaListBox; 3)

...

Sendo que a questão é que ao clicar no botão para efectuar a soma da o seguinte erro :
Compile error:
Expected variable or procedure, not module

Sendo que o Modulo existe ???

Essa função tem de estar dentro do VBA do formulario, não num modulo à parte.

E mostre aqui, como está o código do botão ?

ui... coloquei em Modulo. O botão :
Me.SomaBX.Value = fncSomaListBox(ListaBxFuncionarios,

Então ?

Tem de ser no form, qualquer coisa assim;

Código:

Private Sub SeuBotão_Click()
    Me.SomaBX.Value = fncSomaListBox(Me!ListaBxFuncionarios, 8)
End Sub

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
End Function

Resolvido. Obrigado JP

Explica como posso fazer uma soma de horas de uma coluna da caixa de listagem?
Obs: horas passam de 24, porém já tenho uma função que faz isso.