Originariamente inviato da Lak3d
codice:
	
arrNome = split(strEmail,"@")
	
If Ubound(arrNome) <> 1 then
   blnEmailAccepted = false
   Exit Function
End If
<>1 ?!?!
Ubound non restituisce la lunghezza del vettore? se è come ricordo dev'essere <>2

UBOUND restituisce L'ULTIMO INDICE dell'array...la grandezza dell'array, partendo gli indici da 0, è data da UBOUND(array)+1