统计字符串中某字符串出现的次数

如果要统计一段字符串中某字符串的出现次数,
如需要统计字符串"niger shi shen me?shi heiren de chenghu!wo jiu shi xihua ba heiren jiaozuo niger"中
"niger"的出现次数,可以参考如下代码,以下代码用VB实现

Function cishu(find_source As String, find_str As String) As Integer
    Dim n As Integer
    Dim index As Integer
    'n为出现的次数,index为找到的字符串的索引,在VB的字符串中,索引从1开始
    n = 0
    index = 1
    Do
        index = InStr(index, find_source, find_str, 0)
        If index > 0 Then
            n = n + 1
            index = index + Len(find_str)
        End If
    Loop While index <> 0
    cishu = n
End Function