How do I detect the number of occurrences of a string? _ Programming 10000 Q

How do I detect the number of occurrences of a string?

Function Checkthechar (thechar,thestring)
' Thechar= '".
' thestring= " The string to be detected ".
If INSTR (Thestring,thechar) then
for n =1 to Len (thestring)
If Mid (Thestring,n,len (TheChar)) =thechar then
Checkthechar=checkthechar+1
End If
Next
checkthechar= " this character " &CheckTheChar& " "
Else
checkthechar= "0 "
End If
End Function!--? xml:namespace prefix = o ns = "Urn:schemas-microsoft -com:office:office "/-->