Vista - How to get DOM on the landing page after a submit using aInternetExplorer.Application Obj

The following script visits a website log in page, does a POST, and
then navigates to the site's welcome page.

The Welcome page has a div whose id is "AAA".

But the IE object isn't getting refreshed with the DOM on the Welcome
page to see it.

What do I need to do?

Thanks.


Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "http://www.mywebsite.com"

Do while IE.Busy
Loop

Set doc = IE.Document

Set form = doc.forms("login_form")
form.elements("password").value = "mypassword"
form.elements("logon").value = "mylogin"
form.submit

Do while IE.Busy
Loop

IE.Refresh -- Refresh isn't making it so I can see the DOM on the
Welcome page

Set doc = IE.Document
Set msg = doc.getElementById("AAA")
MsgBox msg.innerHTML ' Always null

Nevermind. This did it:

IE.Navigate IE.LocationURL

''''

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate "http://www.mywebsite.com"

Do while IE.Busy
Loop

Set doc = IE.Document

Set form = doc.forms("login_form")
form.elements("password").value = "mypassword"
form.elements("logon").value = "mylogin"
form.submit

Do while IE.Busy
Loop

IE.Navigate IE.LocationURL
Set doc = IE.Document
Set msg = doc.getElementById("AAA")
MsgBox msg.innerHTML ' Works now