Execute 方法

[code]Function RegExpTest(patrn, strng)  Dim regEx, Match, Matches      ' Create variable.  Set regEx = New RegExp         ' Create a regular expression.  regEx.Pattern = patrn         ' Set pattern.  regEx.IgnoreCase = True         ' Set case insensitivity.  regEx.Global = True         ' Set global applicability.  Set Matches = regEx.Execute(strng)[/code]   [code]' Execute search.[/code][code]  For Each Match in Matches      ' Iterate Matches collection.[/code][code]    RetStr = RetStr & "Match found at position "[/code][code]    RetStr = RetStr & Match.FirstIndex & ". Match Value is '"[/code][code]    RetStr = RetStr & Match.Value & "'." & vbCRLF[/code][code]  Next[/code][code]  RegExpTest = RetStr[/code][code]End Function[/code][code]MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))[/code]