Access: Regular Expressions

In VB:

 

Tools -> References: Microsoft VBScript Regular Expressions 5.5

 

        Set objRE = New RegExp
        objRE.Pattern = "^[_A-Za-z0-9-]+(\.[_A-Za-z0-9-]+)*@[A-Za-z0-9]+(\.[A-Za-z0-9]+)*(\.[A-Za-z]{2,})$"
        DataNotValidated = Not (intRE = objRE.Test(emailAddress))