Hola, puedes probar usando esta funcion que hace uso de Expresiones regulares, es facil pasarla a VB.NET.
Código:
public static bool validarEmail(string email)
{
string expresion = "\\w+([-+.']\\w+)*@\\w+([-.]\\w+)*\\.\\w+([-.]\\w+)*";
if (Regex.IsMatch(email, expresion))
{
if (Regex.Replace(email, expresion, String.Empty).Length == 0)
return true;
else
return false;
}
return false;
}
saludos