Public Function IsValidEmailAddress(strAddress As Variant) As Boolean
    'Validates that the supplied value is a valid email address.
    Dim objRegEx As Object
    Dim sRegExpr As String
    
    Set objRegEx = CreateObject("VBScript.RegExp")
    sRegExpr = "^[\w-]+(?:\.[\w-]+)*@(?:[\w-]+\.)+[a-zA-Z]{2,7}$"
    
    With objRegEx
        .Pattern = sRegExpr
        .Global = True
        IsValidateEmailAddress = CStr(CBool(.Test(strAddress)))
    End With
    
    Set objRegEx = Nothing
End Function