<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <Title>Validate email address</Title>
      <Shortcut>Validateemailaddress</Shortcut>
      <Description>Validate email address [VB.NET]</Description>
      <Author>Benoit Gauthier</Author>
      <HelpUrl>/PreviewSnippet.aspx?SnippetID=7e8875c5-4101-4ab7-b073-ef36b47a9e06</HelpUrl>
      <SnippetTypes>
        <SnippetType>SurroundsWith</SnippetType>
      </SnippetTypes>
    </Header>
    <Snippet>
      <Code Language="VB"><![CDATA[' 
'   Validates an email address using regex.
' 
Public Function IsEmailValid(ByVal sEmail As String) As Boolean
    Dim sEmailRegex As String = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
    Dim oRegex As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(sEmailRegex)
    If Not (oRegex.IsMatch(sEmail)) Then
        Return False
    Else
        Return True
    End If
End Function]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>