Esta es una función muy interesante que verifica que la dirección de correo que se le pasa (la variable texto) sea correcta.

Para comprobar que el usuario introduce la dirección correctamente desde una página recomendamos que se compruebe desde Javascript para evitar los pasos de alante y atrás que hacen muy incomoda la navegación; sobre todo si esta en un formulario (algo común) y este se borra cada vez que hay un error.
Esta función es mas recomendable para la comprobación una vez introducidos los datos; por ejemplo comprobar las 'celdas mail' de una tabla.

<%
'Copyright © 2002 McAnam.com

Function mail(texto)

     texto=trim(texto)

     cadena = "abcdefghijklmnñopqrstuvwxyzABCDEFGHIJKLMNÑ[email protected]_"

     punto = InStrRev(texto, ".")
     arroba = InStr(1, texto, "@", vbTextCompare)
     If (InStrRev(texto, "@") <> arroba) Then arroba = 0

     mail = True

     For contador = 1 To Len(texto)
     If InStr(1, cadena, Mid(texto, contador, 1), vbTextCompare) = 0 Then
     mail = False
     Exit For
     End If
     Next

     If punto <> 0 And arroba > 1 And (arroba + 1 < punto) And (punto + 1 < (Len(texto))) And mail = True And InStr(texto, "..") = 0 Then
     mail = True
     Else
     mail = False
     End If

     End Function
%>

Original de McAnam