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