Como hacer para buscar una palabra y las veces q s repite?

[elsabio]

Hola Gente,

Un problemita.

Tengo una cadena por ejemplo:

"es una cadena, es una cadena, es una cadena "

como se puede ver la palabra "es" se repite tres veces, como podria ocurrir con cualquier otra palabra.

Mi pregunta es: como puedo hacer para que me devuelva una palabra buscada (ejm. "es") y las veces que se repite la misma?.

estuve intentando con:
-------
cadena = "es una cadena, es una cadena, es una cadena "
campo = "es"

InStr(cadena, campo)
-------
Con ello puedo asegurar la esixtencia o no de palabra ("es")

Pero cuando intento saber cuantas veces se repite no puedo.

Alguien me podria ayudar, existe alguna forma o propiedad?

Gracias a todos

[u_goldman]

Por cierto, volviendo al tema...je je
No tengo muy claro lo que quieres hacer pero de momento se me ocurre que podrías hacer un ciclo en el cuál buscaras consecutivamente la subcadena "es", si la primera vez que pasa por la cadena lo encuentra

cadena = "es una cadena, es una cadena, es una cadena "
campo = "es"

pos= InStr(cadena, campo) +len(campo)

esto te devolvería un 1, si a eso le sumas (campo), te da un 3, de ahí puedes seguir buscando

pos= inSTr(pos,cadena,campo)

Salu2,