i think this came from Msdn ...
' need reference to Microsoft VBScript Regular Expressions
' (vbscript.dll)
Function RegExpTest(patrn, strng) As String
Dim regEx As New RegExp
Dim Match As Match
Dim Matches As MatchCollection ' Create variable.
Dim Sm As SubMatches
Dim RetStr As String
Dim s As String
regEx.Pattern = patrn ' Set pattern.
' regEx.IgnoreCase = True ' Set case
regEx.Global = True ' Set global applicability.
Set Matches = regEx.Execute(strng) ' Execute search.
For Each Match In Matches ' Iterate Matches
RetStr = RetStr & "Match found at position "
RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
RetStr = RetStr & Match.Value & "'." & vbCrLf
Next
RegExpTest = RetStr
End Function
Private Sub Form_Load()
MsgBox RegExpTest("ZONE \[(.*)\]", " worker ZONE [ In the Zone ]"

Unload Me
End Sub