IE.navigate not working on VPN

[30knotwind]

My code has been working for a full year on XP, MSIE8, Cisco AnyConnect (VPN). We recently migrated to Win7 and did not have trouble to begin with, but after a couple months it now never works on the VPN. It is giving me this error:

"The Object Invoked has disconnected from its clients" when it reaches the Do loop.

If I take out the Do loop, it gives me the same error when it gets to the next line of code, which inserts data into a form on the webpage.

The code always works without issues when I am off the VPN.

I have tried everything from lowering security settings to saving passwords, etc.

Any help appreciated!
Chris

Code:

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")

'webpage to be edited
comment_url = ActiveWorkbook.Sheets("Comment").Range("M24").Value

IE.Navigate comment_url  'load web page

Do
DoEvents
Loop Until IE.readyState = 4

'    READYSTATE_UNINITIALIZED = 0
'    READYSTATE_LOADING = 1
'    READYSTATE_LOADED = 2
'    READYSTATE_INTERACTIVE = 3
'    READYSTATE_COMPLETE = 4

Call IE.Document.getElementById("edit-field-trader-open-0-value-datepicker-popup-0").SetAttribute("value", pos_date)

 

[BrianB]

Try this :-

IE.Navigate2 comment_url  'load web page

 

[BrianB]

Only just received this notification June 2nd. !!

With anything related to the Internet or file servers apart from connection speed we are at the mercy of the traffic volume at the time - so you might find your code still works outside peak times. In some scenarios such as screen updating problem is often that the code runs too fast. Try experimenting with time delays like this code which forces the code to stop for 10 seconds at a time. At least you will know that something is happening.

t = 0   ' counter
Do
    Application.StatusBar = t
    Application.Wait Now + TimeValue("00:00:10") ' wait 10 seconds
    t = t + 10
    DoEvents
Loop Until IE.readyState = 4
Application.StatusBar = "Connected"