计算一个字符串在另一字符串中出现的次数函数

　　Function strnum(patrn, strng)

　　Dim regEx, Match, Matches,xx

　　xx=0

　　Set regEx = New RegExp

　　regEx.Pattern = patrn

　　regEx.IgnoreCase = True            ' 设置是否区分大小写。

　　regEx.Global = True

　　Set Matches = regEx.Execute(strng)

　　For Each Match in Matches

　　xx=xx+1

　　Next

　　strnum = xx

　　End Function