vbs搜索字符串有几次出现

我想要用VBScript做一个搜索字符串在另一个字符串中有几次出现的程序。
比如：在"abcabc"里搜索"a"就输出2（有2个a）。
有没有这样的函数啊？没有的话，有没有谁可以编一个函数？

Function RegExpMatchCount(patrn, strng)
Dim regEx, Match, Matches ' Create variable.
Set regEx = New RegExp ' Create regular expression.
regEx.Pattern = patrn ' Set pattern.
regEx.IgnoreCase = False ' Set case insensitivity.
regEx.Global = True ' Set global applicability.
Set Matches = regEx.Execute(strng) ' Execute search.
RegExpMatchCount = Matches.Count
End Function
MsgBox(RegExpMatchCount("a", "abcabc"))
支持正则表达式搜索

set fso=createobject("scripting.filesystemobject") set txt1=fso.opentextfile("1.txt",1) cod1=txt1.readall txt1.close set txt2=fso.opentextfile("2.txt",1) cod2=txt2.readall txt2.close if instr(cod2,cod1)>0 then msgbox "找到了字符:"&cod1 end if 上源码测试可用。 同目录下新建两个文件“1.txt”、“2.txt”。“1.txt”写进搜索关键词“中国人”，“2.txt”写入内容“我是中国人，你好。”。 字符串比较不分什么文，只要你双引号里面的东西完全一样就相等。有一点点不同都不会相等。 有任何问题追问吧。