VBA calling up internet explorer error

[sl32l]

Hi

I am trying to call up an internet explorer window that a selection is made on that webpage then brings up another page. This same exact code worked when I had windows XP but now that I have windows 7 I keep getting this error


Here is the code to call up the internet explorer page and red where it is errorring out

'start a new IE session and navigate to webfocus
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = True
.Navigate "http://webfocus.prd.vs.lmco.com/ibi...IBIMR_drill=RUNNID&IBIMR_folder=#productionop&"
'wait for page to load
Do While .Busy And Not .readyState = 4:
Application.Wait (Now + TimeValue("0:00:04"))
DoEvents
Loop

'wait for page to load
Application.Wait (Now + TimeValue("0:00:02"))
While ie.Busy
DoEvents
Wend

DOES ANYONE KNOW WHAT IS CAUSING THIS

PLEASE HELP!