Private Sub Command1_Click()
RegExpTest "123", "99912344"
End Sub

Function RegExpTest(patrn, strng)
Set regEx = CreateObject("VBScript.RegExp")      '     &&建立正則表達(dá)式對(duì)象
regEx.Pattern = patrn                '                                 &&設(shè)置模式
regEx.IgnoreCase = True       '                                        &&設(shè)置是否區(qū)分字符大小寫
regEx.Global = True       '                                                &&設(shè)置全局可用性
Set matches = regEx.Execute(strng)        '                     &&執(zhí)行搜索
RetStr = ""
For Each match In matches               '                        &&遍歷匹配集合
    RetStr = RetStr + "找到位置:   " + LTrim(Str(match.FirstIndex)) + "," & vbCrLf
    RetStr = RetStr + "長(zhǎng)度為   " + LTrim(Str(match.Length)) + "," & vbCrLf
    RetStr = RetStr + "找到結(jié)果為   " + match.Value + "." + Chr(10) + Chr(13) & vbCrLf
Next
MsgBox RetStr
End Function