[VB.NET] - Validazione Email universale

[Veronica80]

Ciao a tutti! Ho spulciato un po in giro e ho trovato vari script per validare le email..però son tutti diversi

Nella fattispecie quello che mi è sembrato migliore è questo:

Imports System.Text.RegularExpressions 
    Function EmailAddressCheck(ByVal emailAddress As String) As Boolean
 
        Dim pattern As String = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
        Dim emailAddressMatch As Match = Regex.Match(emailAddress, pattern)
        If emailAddressMatch.Success Then
            return True
        Else
            return false
        End If
 
    End Function

Il problema è che mi da False anche su indirizzi tipo: "mio_indirizzo@miodominio.it" che invece sono validissimi...
Non esiste un pattern "universale" che faccia davvero quello che deve fare? :P