Regular Expression – Validar un correo electrónico en VB.NET

Encontré esta interesante expresión regular para validar una dirección de correo electrónico en VB.NET para aplicaciones Windows. Imports System.Text.RegularExpressions Function CorreoValido(ByVal sEmai As String) Return Regex.IsMatch(sEmail, «[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