como captar informacion que viene de la web?en vbasic

[Jorge_Mota]

Dim oIE as Object, cCad as String, cPar1
Set oIE = CreateObject("InternetExplorer.Application")
cPar1 = "Un_Valor"
cCad = "Http://www.tusite.com/script.php?variable="+cPar1
oIe.Visible = True
oIe.Navigate2(cCad)
' Aca Va un Ciclo
while oIE.Busy =true
'Aca va el codigo de espera, por que sigue ocupado el navegador
end