Determines whether input format is valid for an e-mail address. : Match Email « Regular Expressions « VB.Net Tutorial

1. VB.Net Tutorial
2. Regular Expressions
3. Match Email

Imports System.Text.RegularExpressions
Public Class Application
   Public Shared Sub Main()
      Dim emailAddresses() As String = { "david.jones@a.com", "d.j@server1.a.com", _
                                         "jones@ms1.a.com", "j.@server1.a.com", _
                                         "j@a.com9" }
      For Each emailAddress As String In emailAddresses
         If RegexUtilities.IsValidEmail(emailAddress) Then
            Console.WriteLine("Valid: {0}", emailAddress)
         Else
            Console.WriteLine("Invalid: {0}", emailAddress)
         End If      
      Next                                            
   End Sub
End Class

Module RegexUtilities
   Function IsValidEmail(strIn As String) As Boolean
       Return Regex.IsMatch(strIn, "^([0-9a-zA-Z]([-\.\w]*[0-9a-zA-Z])*@([0-9a-zA-Z][-\w]*[0-9a-zA-Z]\.)+[a-zA-Z]{2,9})$")
   End Function
End Module