Использование InternetExplorer - VB

Формулировка задачи:

Всем привет!
Помогите понять одну вещь.
Создаю объект InternetExplorer.Application, инициирую, результат сохраняю в объект

IE = CreateObject()
IE.Navigate 
.........
 DocModal = IE.Document
.........

Затем, чтобы не терять время на инициацию нового объекта InternetExplorer.Application, в других подпрограммах использую тот же объект IE, меняю навигацию, загружаю страничку. Результат сохраняю в другой объект типа HTMLDocument, например iDoc, определенный в этой подпрограмме.
Все нормально отрабатывается. Наблюдается некоторое ускорение работы программы в целом, так как не надо создавать новый объект InternetExplorer.Application.
НО!
При возврате в главную процедуру обнаруживаю, что объект DocModal пуст, хотя с ним никаких опраций не производил. С чем это связано? Или эти два объекта каким-то образом связаны?

Решение задачи: «Использование InternetExplorer»

textual
                            Листинг программы 
                        

                            <font color="blue">Function</font> CreateHTMLDocument(url <font color="blue">As</font> <font color="blue">String</font>, strvb <font color="blue">As</font> <font color="blue">String</font>) <font color="blue">As</font> MSHTML.HTMLDocument
<font color="blue">Set</font> CreateHTMLDocument = <font color="blue">New</font> MSHTML.HTMLDocument
<font color="blue">Set</font> CreateHTMLDocument = GlobDoc.createDocumentFromUrl(url, vbNullString)
<font color="blue">Do</font>
    DoEvents
<font color="blue">Loop</font> <font color="blue">Until</font> CreateHTMLDocument.readyState = <font color="teal">"complete"</font>
<font color="blue">End</font> <font color="blue">Function</font>
                        