Para encontrar el numero de coincidencias en la busqueda de una palabra determinada, puedes usar esta muy simple función:

Código:
Function NEncontrados(DondeBuscar As String, Buscado As String) As Integer
Dim Encon As Integer
Dim Busq As Integer
Dim DondeHay As Integer
Encon = 0
For Busq = 1 To Len(DondeBuscar)
DondeHay = InStr(Busq, DondeBuscar, Buscado)
If Not DondeHay = 0 Then
Encon = Encon + 1
Busq = DondeHay
End If
Next
NEncontrados = Encon
End Function


Saludos,
Skipped

Edited by: Skipped