Occorrenze
[VB ]

private function OccorrenzeStr(stringa, substringa)
dim occorrenze, i

for i = 1 to len(stringa)-len(substringa)
if mid(stringa, i, i + len(substringa)) = substringa then 
    occorrenze = occorrenze + 1
end if
next

OccorrenzeStr = occorrenze

end function