Public Function ValidateRegEx(varValue As Variant, strExpression As String) As Boolean
    'Validates a value against the supplied regular expression
    Dim objRegEx As Object
    Set objRegEx = CreateObject("VBScript.RegExp")
    
    objRegEx.Pattern = strExpression
    objRegEx.Global = True
    ValidateRegEx = objRegEx.Test(varValue)
    
    Set objRegEx = Nothing
End Function