Trucos de ASP.NET Expresión Regular, validar un email

Gracias a esta expresión regular para saber si e trata de un email

#Region "IsMail"
    Public Shared Function IsMail(ByVal p_email As String) As Boolean
        Dim l_reg As New System.Text.RegularExpressions.Regex("^(([^<;>;()[\]\\.,;:\s@\""]+" & _
        "(\.[^<;>;()[\]\\.,;:\s@\""]+)*)|(\"".+\""))@" & _
        "((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}" & _
        "\.[0-9]{1,3}\])|(([a-zA-Z\-0-9]+\.)+" & _
        "[a-zA-Z]{2,}))$")
        Return (l_reg.IsMatch(p_email))

    End Function
#End Region