Short, sweet, and to the point. Protected Function IsEmailAddress( ByVal Address As String ) As Boolean Return System.Text.RegularExpressions.Regex.IsMatch(Address, "^(([A-Za-z0-9]+_+)|([A-Za-z0-9]+\-+)|([A-Za-z0-9]+\.+)|([A-Za-z0-9]+\++))*[A-Za-z0-9]+@((\w+\-+)|(\w+\.))*\w{1,63}\.[a-zA-Z]{2,6}$") End...