Validar Email com expressão regular

Esta função é muito útil na validação de endereços do E-mail passado por parâmetro.

A função verifica se o E-mail está digitado no formato correto utilizando Expressão Regular.

<%
'-----------------------------------------------------
'Funcao: IsEmail(ByVal strEmail)
'Sinopse: Verifica se o valor passado é um Email válido
'Parametro: strEmail
'Retorno: Booleano
'Autor: Gabriel Fróes - www.codigofonte.com.br
'-----------------------------------------------------
Function IsEmail(ByVal strEmail)
	Dim regEx
	Dim ResultadoHum
	Dim ResultadoDois 
	Dim ResultadoTres
    Set regEx = New RegExp            ' Cria o Objeto Expressão
    regEx.IgnoreCase = True         ' Sensitivo ou não
    regEx.Global = True             ' Não sei exatamente o que faz 
    
    ' Caracteres Excluidos
    regEx.Pattern    = "[^@-.w]|^[_@.-]|[._-]{2}|[@.]{2}|(@)[^@]*1"
    ResultadoHum    = RegEx.Test(strEmail)
    ' Caracteres validos
    regEx.Pattern    = "@[w-]+."        
    ResultadoDois    = RegEx.Test(strEmail)
    ' Caracteres de fim
    regEx.Pattern    = ".[a-zA-Z]{2,3}$"  
    ResultadoTres    = RegEx.Test(strEmail)
    Set regEx = Nothing
    
    If Not (ResultadoHum) And ResultadoDois And ResultadoTres Then
        IsEmail = True
    Else
        IsEmail = False
    End If
End Function

'EXEMPLO DE CHAMADA
Response.Write IsEmail("email@provedor.com.br")
%>

Qual é a sua opinião ou dúvida?