Questo piccolo script controlla se una email è valida.
--------------------------------------------------------


'Inizializzazione variabili
Dim pos as byte
Dim dotpos as byte

'Crea la funzione is_email e li passa il valore della mail
Function is_email(strMail)
'Controlla se email è minore di 6
If Len(strMail) > 6 Then
'Questa parte verà visualizzata solamente se email è supperiore a 6 caratteri
'Trova la posizione della chiocchiola
pos = InStr(1, strMail, "@")
'Controlla se la posizione della @ è > o = alla lunghezza dell'email - 3
If pos >= Len(strMail) - 3 Then
'Se è > o = esce dalla funzione
Exit Function
'Fine del if
End If
'Controlla se la posizione della @ è > a 2
If pos < 2 Then
'Se è minore esce dalla funzione
Exit Function
ìFine if
End If
'Recupera la posizione del . dopo la posizione della @
dotpos = InStr(pos + 1, strMail, ".")
'controlla se la posizione del . è > alla lunghezza dell'email - 2
If dotpos > Len(strMail) - 2 Then
'Se > esce dalla funzione
Exit Function
'fine if
End If
'controllo sulle lunghezze.
If Len(Mid(strMail, pos + 1)) < 5 Or dotpos = 0
Then
'se < esce dalla funzione
Exit Function
'fine if
End If
'valorizza la variabile con valore booleano True
ControlloMail = True
'altrimento del if
Else
'valorizza la variabile con valore booleano False
ControlloMail = False
'fine if
End If
'restituisce valore true se email è valida e false se non è valida
return ControlloMail
'fine della funzione
End Function