[Resolvido]Somar um Campo no Relatório só que este campo tem um resultado de um codigo VBA

Olá sou novo no Forum, e vcs já me ajudaram bastante no meu projeto!
Gostaria muito que vcs me ajudassem neste problema que eu estou tendo, tenho um codigo no meu relatório:

Function teste(pString As String, pChar As String) As Long
Dim I As Long
Dim lCont As Long
lCont = 0
For I = 1 To Len(pString)
If Mid(pString, I, 1) = pChar Then lCont = lCont + 1
Next I
teste = lCont

End Function


Quando eu coloco =teste([NomeCli];"a") na fonte de controle de um campo no Detalhe no Relatório, me da o resultado de quantas letras "a" tem no campo NomeCli
tem como colocar no rodapé do Relatório a soma deste campo?
Desde já agradeço, a solução deste problema é muito importante para mim!
segue anexo exemplo
Obrigado a todos

Boa noite,

Teste dessa forma no rodapé do relatorio

=Soma(SeImed([Seu_Campo]=-1;1;0))

Olá Fernando, deu erro "Tipo de dados Incompatíveis na expressão de Critério."
tem outra dica?
Obrigado

Desta forma deu erro?


=Soma(SeImed([NomeCli]=-1;1;0))

Isto mesmo Fernando! deu erro, coloquei exatamente o que vc me mandou :
=Soma(SeImed([NomeCli]=-1;1;0))
deu a mensagem de erro!

Se puder por favor converta seu bd para 2007 ou 2003 para que

possa ajuda-lo

Muito Obrigado Avelino!! não sei como agradecer, resolveu meu problema!
Pessoas como vc que precisamos nos dias de hj! Muita paz e felicidades, não posso deixar de agradecer ao Fernando também pela boa vontade!
Coloco o tópico como resolvido!