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