Change your wait event to this, I believe it should work in all common versions:
[VBA]Do Until ie.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop[/VBA]