Controllo caratteri in un email

[Lak3d]

	
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