[Resolvido]Soma do listBox com criterios

Boa noite a todos os Mestres.

Estou tentando aplicar o código repassado pelo Mestre JPaulo, segue abaixo. A função está executando perfeitamente, porem gostaria de saber se teria como acrescentar um critério na função, pois na minha listbox existe um campos Sim/Não e eu gostaria que fossem somadas apenas os valores onde o campo estivesse marcado como "Sim".
Tentei incluir o seguinte comando na função, "if .column(5)=-1, tanto antes como dentro do For, porem não obtive o resultado esperado.
Como sempre gostaria de contar com a ajuda dos Mestres.
Desde já agradeço a atenção prestada.

Código:

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

Boa tarde, Mestres.

Realmente preciso da ajuda dos amigos, pois dependo desse procedimento para finalizar uma etapa do meu projeto.

Posta pra gente,será mais fácil ajudar.
Abç.

Consegui resolver o a dificuldade.
Segue abaixo o código com a  modificação:

Código:

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 + IIf(.Column((5), intLinha) = -1, Val(.Column(intColuna, intLinha)), 0)
           Next intLinha
       End With
    'Insere a soma total na função
    fncSomaListBox = intTotal
End Function

Agradeço a atenção de todos.

Amigos postei aqui porque é o que preciso, porém com um ajuste.

Minha listbox tem um campo sim/não que foi convertido em texto SIM e NÃO. Preciso contar os SIM.

Seria isso. No lugar do -1 usei "sim" dentro do for

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 + IIf(.Column((5), intLinha) = "sim", Val(.Column(intColuna, intLinha)), 0)
Next intLinha
End With
'Insere a soma total na função
fncSomaListBox = intTotal
End Function