取某个字符或字符串在另一个字符串中出现的次数的函数

'-----------------------------------------------------------------------------
'名称 Count
'描述 取某个字符或字符串在另一个字符串中出现的次数
'参数
'     stringBeSearched As String       接受搜索的字符串表达式
'     stringToFind As String           要搜索的字符串表达式
'返回 Long 出现的次数，如果没有返回0
'异常 参数为Null返回0
'整理 KimSoft
'时间 2006-01-20
'-----------------------------------------------------------------------------
Function Count(stringBeSearched, stringToFind)
    Count = 0
    If IsNull(stringBeSearched) Or IsNull(stringToFind) Then Exit Function
    Count = UBound(Split(stringBeSearched, stringToFind))
End Function