//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