Buscar Texto en HTML

[asauce]

El código original que he cojido es este, del enlace que me has dado, 3pies. Si pongo éste, para probar lo que hace, me funciona bien. Lo malo es cuando hago los cambios.

NOTA: Donde pone PAGINAWEB va la página web donde ha de leer los datos -lo mismo que antes, que no me deja poner vínculos el foro éste-.
Es, sin espacios:
http : / / dsrefa01 . hsbc . com . mx / aptrix / InternetPub . nsf / Content / TasasSplash


<%
Response.Buffer = True
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "paginaweb", False
xml.Send
Cadena = CSTR(xml.responseText)
PosIni1 = InStr(Cadena,"DOLAR AMERICANO")
PosIni2 = InStr(PosIni1,Cadena,"$")
PosFin = InStr(PosIni2, Cadena,"<")
DolarCompra = MID(Cadena, PosIni2, PosFin-PosIni2)
PosIni1 = PosFin
PosIni2 = InStr(PosIni1,Cadena,"$")
PosFin = InStr(PosIni2, Cadena,"<")
DolarVenta = MID(Cadena, PosIni2, PosFin-PosIni2)
Response.Write "Dolar Compra: " & DolarCompra & "<br>"
Response.Write "Dolar Venta: " & DolarVenta & "<br>"
Response.Write Cadena & "<br>"
Set xml = Nothing
%>

Gracias.