Runtime error 91 “Object variable or with block variable not set”

Sub FindUser()

Dim ie as shdocvw.internetexplorer
Dim ht as htmldocument

Set ie = new internetexplorermedium
Ie.visible = True
Ie.navigate ("url")

Do while ie.busy or ie.readystate <> 4
Doevents
Loop

Set ht = ie.document

Activesheet.range("b30").value = ht.getelementbyid("infobasic").getelementsbytagname("span") (0).innertext

End sub

I get error at bolded text (activesheet...line). But if I continue running code manualy I get the desired value in cell. It's just the error in middle. Please help. I want to get the web data into excel cell. In code I have mentioned only one tag however I will be using more tags to get more results from web.