Contar ocorrências de caracteres específicos em uma sequência

Qual é a maneira mais simples de contar o número de ocorrências de um caractere específico em uma string?

Ou seja, eu preciso escrever uma função, countTheCharacters (), para que

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