aqui esta el codigo, solo busca adaptarlo para lo que necesitas
Código ASP:
Ver originalSet xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", "http://www.banamex.com/esp/finanzas/divisas/divisas.html", False
xml.Send
Cadena = CSTR(xml.responseText)
PosIni1 = InStr(Cadena,"Ventanilla")
PosIni2 = InStr(PosIni1,Cadena,".")
PosFin = InStr(PosIni2, Cadena,"<")
DolarCompra = MID(Cadena, PosIni2-2, PosFin-PosIni2)
PosIni1 = PosFin
PosIni2 = InStr(PosIni1,Cadena,".")
PosFin = InStr(PosIni2, Cadena,"<")
DolarVenta = MID(Cadena, PosIni2-2, PosFin-PosIni2)
Set xml = Nothing
dolar_compra=CDbl(MID(DolarCompra,InStr(DolarCompra,";")+1,LEN(DolarCompra)))
dolar_venta=CDbl(MID(DolarVenta,InStr(DolarVenta,";")+1,LEN(DolarVenta)))