cadena = "index.asp?cadena=Hola mundo, entra en http://www.mipagina.com y lee mis articulos. " ini = InStr(1, cadena, "http") fin = InStr(ini, cadena, " ") cadena = Mid(cadena, ini, fin - ini)