RegEx - Validar mail

Ejemplo que usa la clase Regex de .net y el método IsMatch para comprobar una dirección de mail mediante expresiones regulares
Para el ejemplo colocar un control button

Código fuente en un windows forms

Texto planoCopiar código fuenteImprimir
Option Explicit On
Option Strict On
' Espacio de nombres con clases para el manejo de expresiones regulares en .NET
Imports System.Text.RegularExpressions

Public Class Form1

Private Function validar_Mail(ByVal sMail As String) As Boolean
' retorna true o false
Return Regex.IsMatch(sMail, _
"^([\w-]+\.)*?[\w-]+@[\w-]+\.([\w-]+\.)*?[\w]+$")
End Function

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click

Dim sMail As String

sMail = InputBox("Escribir una dirección de email", "validación")

If Len(sMail) > 0 Then
MsgBox(validar_Mail(sMail), MsgBoxStyle.Information)
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load

Button1.Text = " Validar mail "

End Sub
End Class