Visual Basic - Existe ocurrecia

Deseo saber el nombre de la funcion que>
1)Si le proporciono un caracter y una tira de caractres esta
devuelve la cantidad de veces que ese caracter se encuentra en
la tira.
ocurrencias("*","sdfsdf*dfdf***dfd*sdf*") devuelve 5
desde ya gracias.

En ese caso si no miro mal debería ser 6 y no 5, no existe una función en VB que haga exactamente eso, pero se puede hacer en forma recursiva:

Public Function Ocurrencias(Patron As String, Buscar As String) As Long
If InStr(1, Buscar, Patron) > 0 Then
Ocurrencias = Ocurrencias + 1 + Ocurrencias(Patron, Mid(Buscar, InStr(1, Buscar, Patron) + 1))
End If
End Function