Para comprobar que una direccion MAIL es valida. Por Ruben Vigon
Public Function IsEmail(ByVal strEmail As String) As Boolean
Dim strTemp As String
If Not InStr(strEmail, "@") > 0 Then
IsEmail = False
Else
If Not InStr(strEmail, ".") > 0 Then
IsEmail = False
Else
If Not Len(Left(strEmail, InStr(strEmail, "@") - 1)) >= 3 Then
IsEmail = False
Else
strTemp = Mid(strEmail, InStr(strEmail, "@") + 1, Len(strEmail))
If Not Len(Left(strTemp, InStr(strTemp, ".") - 1)) >= 3 Then
IsEmail = False
Else
If Not Len(Right(strTemp, Len(strTemp) - InStr(strTemp, "."))) >= 2 Then
IsEmail = False
Else
IsEmail = True
End If
End If
End If
End If
End If
End Function
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)