Check if email is valid

//CheckIfEmailIsValid //emailAddress as string //Return Type Boolean Dim re As RegEx re = New RegEx Dim rm As RegExMatch If emailAddress="" then Return True else re.SearchPattern = "[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*@(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?" rm = re.Search(emailAddress) if rm = Nil Then Return False Else Return True End if end if //http://www.xojodevspot.com/applications/content/content.php?content.41