如何将Internet Explorer对象从模块传递到用户窗体，然后再返回到模块

Question

我有访问网页的模块。接下来，它显示一个带有几个按钮的UserForm。基于该按钮，用户单击该网站上的特定链接，将被单击。单击链接后，应将控制权传递回主模块。

我试图在模块中设置Global变量，但是它似乎不起作用。这是一些伪代码：

Public ie as Object
Sub AccessSite()
   Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate "https://www.website.com"
    ie.Fullscreen = False

While ie.Busy
    DoEvents
Wend
MsgBox(ie)
UserForm1.Show

End Sub

要确定我是否已成功传递ie对象，我首先在模块中运行MsgBox（ie）函数。出现一个消息框，并显示“ Internet Explorer”。接下来，我显示UserForm并在单击button1时运行相同的MsgBox（ie）命令。这次消息框为空-变量未成功传递。

Private Sub CommandButton1_Click()
MsgBox (ie)
Unload UserForm4
End Sub