Contar caracteres en una cadena

Rutina que permite contar las apariciones de una cadena dentro de otra.

PLAIN TEXT Visual Basic: Public Function CuentaPalabras(Texto As String, Palabra As String) As Long
Dim wptr As Long
Dim count As Long
wptr = InStr(Texto, Palabra)
Do Until wptr = 0
count = count + 1
wptr = InStr(wptr + 1, Texto, Palabra)
Loop
CuentaPalabras = count
End Function

Referencia: Foro VB-Mundo