Access - contar palabras en una cadena de texto

Explico mejor mi anterior pregunta:
Tengo que hacer un campo calculado donde me salga el número de veces que aparece una palabra en otro campo. No encuentro ninguna función para ello.
Tampoco se me ocurre ninguna forma de hacerlo con código.
¿Me podéis ayudar por favor?
Gracias.

que tal
de memoria, espero que funcione
sino lo corregimos.

public function CantidadDeVeces ( CadenaFuente as string, CadenaABuscar as string) as intinger

dim LargoCadenaBuscar as intenger
dim LargoCadenaFuente as intenger
dim contador as long
dim cadenacomparacion

LargoCadenaBuscar = len(CadenaABuscar)
LargoCadenaFuente = len(CadenaFuente )

for contador = 1 to LargoCadenaFuente -LargoCadenaBuscar
cadenacomparacion = mid(CadenaFuente ,contador,LargoCadenaBuscar )

if cadenaabuscar = cadenacomparacion then
CantidadDeVeces= cantidadDeVeces +1
end if

next contador

end function

JLF_

¡¡Muchísimas gracias!!
Me ha ido genial.

Muy interesante, yo tengo un problema similar y me ha resultado de utilidad.
Pero tengo un problema:
Si el texto a buscar es una palabra, ¿cómo pongo para que me busque esa palabra sólo si es palabra completa y no si es un fragmento de otra? No sé si me explicado bien.
Muchas gracias.