Validate email addresses using VB.NET

  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.     ' The regular expression rule
  3.     Dim Expression As New System.Text.RegularExpressions.Regex("\S+@\S+\.\S+")
  4.     ' If the email matches the regular expression
  5.     If Expression.IsMatch("spamthis@geekpedia.com") Then
  6.         MessageBox.Show("The email address is valid.")
  7.     Else
  8.         MessageBox.Show("The email address is NOT valid.")
  9.     End If
  10. End Sub


Written by