如何检测字符串出现的次数？

如何检测字符串出现的次数？

function checkthechar(thechar,thestring)
' thechar="要检测的字符串".
' thestring="待检测的字符串".
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="这个字符"&checkthechar&"次"
else
checkthechar="0次"
end if
end function