vbs计算字符串在一个文本中出现次数的函数

给出一个应用vbs计算字符串在一个文本中出现次数的函数，如下所示

'Str：字符串内容

'toSearch:需要查找的字符或字符串

Function FindCount(Str,toSearch)
   Dim Times,WordLen
   Times = 0
   WordLen = Len(toSearch)
   For i = 1 To Len(Str)+1-WordLen
   If Mid(Str,i,WordLen) = toSearch Then
   Times = Times + 1
   End If
   Next
   FindCount = Times
end function

'查找"as"在字符串"adfasdfasdfasdfasdfasdfasdfa"中出现的次数

msgbox FindCount("adfasdfasdfasdfasdfasdfasdfa","as")

弹出框结果：6 ，有兴趣的可以将代码拷出来在QTP或其它工具中运行一下。