Cuenta subcadenas en cadena

Esta una función muy sencilla en Vbscript que cuenta las ocurrencias de una subcadena dentro de una cadena.
Nota: Diferencia mayúsculas de minúsculas

Ejemplo:
CuentaOcurrencias("había una vez un circo","un")
Resultado: 2