how to catch data from url in to excel

[namrata]

i want to print the name of my web page and product price in my excel how do i do it please help
i tried creating this code which is not working

UserForm1.WebBrowser1.Silent = True
Dim Strhtml As String
Dim cntr, a As Integer
cntr = 0
i = 2
While Sheet3.Cells(i, 1) <> ""
UserForm1.WebBrowser1.navigate Sheet3.Cells(i, 1)
delay 5
While UserForm1.WebBrowser1.readyState = READYSTATE_LOADING
delay 4
Wend

Strhtml = UserForm1.WebBrowser1.document.DocumentElement.innerHTML

bunch = GetText2(Strhtml, "Game Details", "</h4>")
Sheet3.Cells(i, 2) = GetText2(bunch, "=details_block>", "<br>")

i = i + 1
Wend

my site URL is http://store.steampowered.com/app/16110/