Function RegExpTest(patrn,strng)
Dim regEx,Match,Matches '建立变量
Set regEx = New RegExp '创建一个正则表达式
regEx.Pattern = patrn '设置正则表达式的匹配模式
regEx.IgnoreCase = True '设置为不区分大小写
regEx.Global = True '设置为全局可用
Set Matches = regEx.Execute(strng) '执行搜索
For Each Match In Matches '遍历所有匹配项
RetStr = RetStr & "在"
RetStr = RetStr & Match.FirstIndex & "找到匹配项，匹配项的值为"
RetStr = RetStr & Match.value &"."& VbCrLf'vbcrlf是回车换行
Next
RegExpTest = RetStr
End Function
'调用RegExpTest
MsgBox RegExpTest("Is.","IS1 is2 Is3 is4")
'注意：1）如果regEx.IgnoreCase=False时，意为区分大小写，结果只显示 第一、三项
' 2）如果regEx.Global=False时，意为只匹配第一个，结果只显示第一项
