vba 正则表达式用法

Sub Regexp_test(Sht As String, str As String)
On Error Resume Next
Dim regx As Object
Dim arr, brr, mh
Set regx = CreateObject("vbscript.regexp")

With regx
　　.Global = True

　　'此处填入正则表达式
　　.Pattern = ""

End With

With Sheets(Sht)

arr = .Range("C2:C" & .[A65536].End(xlUp).Row)

ReDim brr(1 To UBound(arr), 1 To 1)
For i = 1 To UBound(arr)
　　Set mh = regx.Execute(arr(i, 1))

　　If mh(0).submatches(1) Like "*-*月*" Then
　　　　brr(i, 1) = VBA.Mid(mh(0).submatches(1), (VBA.InStr(mh(0).submatches(1), "月") + 1), (VBA.InStr(mh(0).submatches(1), "_") - 1))
　　　　ElseIf mh(0).submatches(1) Like "*_*" Then
　　　　brr(i, 1) = VBA.Left(mh(0).submatches(1), VBA.InStr(mh(0).submatches(1), "_") - 1)

　　Else
　　　　brr(i, 1) = mh(0).submatches(1)
　　End If
Next i

End With
On Error GoTo 0
End Sub