Issues with VBA on Win7 64bit

[reyearthnexus]

Hi everybody,

I have read everywhere that many people had a trouble like the one I am going to tell you, but could not really find a solution that might fix my problem.
Basically: I wrote an easy macro that opened, copied and pasted a given webpage on the active sheet. It has always worked fine with each browser. At that time I used WinXP 32bit and Office2010.

<code style="margin: 0px; padding: 0px; border: 0px; vertical-align: baseline; font-family: Consolas, Menlo, Monaco, 'Lucida Console', 'Liberation Mono', 'DejaVu Sans Mono', 'Bitstream Vera Sans Mono', 'Courier New', monospace, serif;">link = ActiveSheet.Range("c1")
URL = "file:///P:/user/" & link & ".html"
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & URL)
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate URL
Do While ie.ReadyState <> 4
DoEvents
Loop
ie.ExecWB 17, 0
ie.ExecWB 12, 2
</code>
(Un)fortunately I have lately been given a newer pc and it stopped working (Win7 64 bit, still Office2010), returning this error:

Run-time Error -21474417848 (80010108)
​

I am pretty sure Internet Explorer 64bit version is the cause of all of it,because is the only thing that has changed. But before I ask the IT manager to downgrade the machine to 32 version, I am wondering if there's an easiest way to fix it.

thank you very much