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

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