¿Cómo utilizar vbs para obtener datos de una página web?

select case true

case instr (1, línea, "efectivo")lt gt 0

get_code línea, num

case instr(1, línea, "vida")lt;gt;0

get_code línea,num

b="life："amp;numamp;vbcrlf

case instr(1,line, "energy")lt;gt;0

get_code línea,num

c="energía:"amp; numamp; vbcrlf

case instr(1, línea, "energía física") gt; , num

d="resistencia:"amp; numamp; vbcrlf

case instr(1, línea, "experiencia") gt; get_code línea, num

e="Experiencia: "amp; vbcrlf

case instr(1, línea, "Nivel") gt; p >línea get_code, num

f="level:"amp;numamp;vbcrlf

finalizar selección

bucle

archivo. Cerrar

msrcrlfclose

msgbox aamp;bamp;camp;damp;eamp;f, 4096 64, "Recordatorio cálido"

sub privado get_code(line, num )

s1=instr(1,línea,":")

s2=instr(1,línea,"lt;/pgt;")

num=mid(línea, s1 9, s2 - s1- 9)

fin del sub