regmatch.vba

Function REGMATCH(target As String, pattern As String, Optional g As Boolean = False, Optional ignoreCase As Boolean = False, Optional multiLine As Boolean = False) As Boolean
    If Len(pattern) = 0 Then
        REGMATCH = False
        Exit Function
    End If
    
    Dim r As New RegExp
    With r
        .multiLine = multiLine
        .Global = g
        .ignoreCase = ignoreCase
        .pattern = pattern
    End With
    REGMATCH = r.Test(target)
End Function