IsValidEmail – Validating an e-mail address

' Validate an e-mail address' Example:'   MessageBox.Show(IsValidEmail("[email protected]")) ' True'   MessageBox.Show(IsValidEmail("vb2themax.com"))            ' False'   MessageBox.Show(IsValidEmail("[email protected]"))     ' FalseFunction IsValidEmail(ByVal email As String) As Boolean    Return System.Text.RegularExpressions.Regex.IsMatch(email, _        "^w+([-+.]w+)*@w+([-.]w+)*.w+([-.]w+)*$")End Function