Function CheckTheChar(TheChar,TheString)
' TheChar="String to be detected".
' 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&"Second-rate"
else
CheckTheChar="0Second-rate"
end if
End Function