estoy intentando pero la verdad q tratar cadenas no es lo mio:
function direccion(cadena)
Dim findenombre,temporal,findedireccion,cadena2
cadena2=cadena
findenombre=instr(11,cadena2,"/")
cadena2=mid(cadena2,1, findenombre)
if len(cadena2)<15 then
direccion=cadena
else
direccion=cadena2
end if
end function
cadena=http://www.unapagina.es
ó
cadena=http://www.otrapagina.es/
parece q funciona
x ahora
alguna otra sugerencia?
