Sí, mas o menos...
Ya he recuperado todo el codigo HTML y lo tengo volcado en una BD, ahora necesito extraer lo necesario, pero con esa funcion a mi no me funciona...
Código PHP:
While InStr(Texto,"<font face=" & Chr(34) & "Verdana, Arial, Geneva, sans-serif" & Chr(34) & " size=2>")>0
Redim preserve Vector(Cnt)
Vector(Cnt) = MID(Texto,InStr(Texto,"<font face=" & Chr(34) & "Verdana, Arial, Geneva, sans-serif" & Chr(34) & " size=2>"), (InStr(Texto,"</font>")-InStr(Texto,"<font face=" & Chr(34) & "Verdana, Arial, Geneva, sans-serif" & Chr(34) & " size=2>")))
Texto = Replace(Texto, "<font face=" & Chr(34) & "Verdana, Arial, Geneva, sans-serif" & Chr(34) & " size=2>", "|", 1, 1)
Texto = Replace(Texto, "</font>", "|", 1, 1)
Cnt=Cnt+1
Wend