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 


sub AbrirVentana(url)
	'Abre una pagina en unna ventana apartte se usa para fotos
	const Propiedades = "width=680,height=520, toolbar=no, location=no, directories=no, status=no ,menubar=no, resizable=no, scrollbars=no"
	const NuevaVentana = "_blank"
	if len(url) = 0 then
		msgbox "No hay Url"		
		exit sub
	end if
	window.open url,NuevaVentana,Propiedades
end sub