Count ocurrencias de caracteres específicos en una cadena

Cuál es la forma más sencilla de contar la cantidad de ocurrencias de un carácter específico en una cadena?

s decir, necesito escribir una función, countTheCharacters (), para que

str = "the little red hen"
count = countTheCharacters(str,"e") ' Count should equal 4
count = countTheCharacters(str,"t") ' Count should equal ,3