Function validarmail(email) 
 	 
 	 Dim ubicacion
 	 
 	 If Len(email)<6 then
 		validarmail=false
 		Exit Function
 	 end if

 	 If InStr(email, "@") = 0 then
 		validarmail=false
 		Exit Function
 	 end if
 
	If InStr(email, ".") = 0 then 
		validarmail=false
		Exit Function
	End if
	
	ubicacion = InStr(email, "@")
	
	If (ubicacion <> 0) and (InStr(email, ".") <> 0) then
		If InStr(email, "@") > InStr(ubicacion,email, ".") then
			Validarmail=false
			Exit Function
		End if
	End if

	validarmail=true
end function