caratteri in stringa (vb)

[fisica]

c'è un modo per scoprire quante volte un gruppo di
caratteri è contenuto in una stringa?
ho provato con:

Function quantevolte(dovecercare, cosacercare)
Dim Position As Integer
Dim num As Integer
Dim pos As Integer
Dim quante As Integer
For Position = 1 To Len(dovecercare)
pos = InStr(Position, dovecercare, cosacercare)

If pos = num Then

Else
quante = quante + 1
num = pos
End If

d.Text = quante
Next
End Function

ma funziona solo per caratteri singoli e non per più di un carattere


grazie

ciao