RegExp in VBA examples

vba_examples.vba

Sub Test() 
    Const strTest As String = "qwerty123456uiops" 
    MsgBox RE6(strTest) 
End Sub 
 
Function RE6(strData As String) As String 
    Dim RE As Object, REMatches As Object 
     
    Set RE = CreateObject("vbscript.regexp") 
    With RE 
        .MultiLine = False 
        .Global = False 
        .IgnoreCase = True 
        .Pattern = "[0-9][0-9][0-9][0-9][0-9][0-9]" 
    End With 
     
    Set REMatches = RE.Execute(strData) 
    RE6 = REMatches(0) 
     
End Function