stai sparando 
praticamente vai a leggere l'html generato dalla pagina web come se fosse un testo contenuto in una variabile e con le funzioni testuali recuperi la parte di testo che ti interessa
guarda questo esempio, l'ho scritto ieri per recuperare le coordinate di un luogo da google maps
codice:
<%
Dim objXMLHttp
Set objXMLHttp = Server.CreateObject("Msxml2.xmlhttp")
objXMLHttp.Open "GET", "http://maps.google.it/maps?q=como", false
objXMLHttp.Send
inizio=(Instr(objXMLHttp.responseText, "lat:")-1)
nuovo_testo=right(objXMLHttp.responseText,(len(objXMLHttp.responseText)-inizio))
fine=(Instr(nuovo_testo, "}")-1)
nuovo_testo=left(nuovo_testo,fine)
array_coord=split(nuovo_testo,",")
lat1=replace(array_coord(0),"lat:","")
long1=replace(array_coord(1),"lng:","")
response.write "latitudine:"&lat1&"
"
response.write "longitudine:"&long1&"
"
%>
praticamente in objXMLHttp.responseText ho il codice html della pagina "http://maps.google.it/maps?q=como" sottoforma di testo e da li recupero i dati che mi servono