Validare un indirizzo email con le Espressioni Regolari

Questa funzione VB.net serve per validare la correttezza formale di un indirizzo email passato come argomento attraverso l’uso delle Espressioni Regolari.
Ritorna True se l’indirizzo è formalmente corretto, False altrimenti.

Codice

Imports System.Text.RegularExpressions

Private Function ValidaEmail(ByVal indirizzo As String) As Boolean

	Dim espressioneRegolare As String
	espressioneRegolare = "^([\w-\.]+)@" & _
	                      "((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|" & _
	                      "(([\w-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
	Return Regex.IsMatch(indirizzo, espressioneRegolare)

End Function