msgbox网络自动化后代码无法运行

Question

请，我从该宏中提取了一个网站上需要使用数字证书进行访问的许多信息。

我启动宏并使用msgbox停止它。登录后，用户单击msgbox中的ok，该代码应继续运行。现在，我改用Office 2016，它停止了，就像单击msgbox后失去了浏览器连接一样。

为什么代码会在Office 2016中停止？

代码：

Set appIE = CreateObject("InternetExplorer.Application")
With appIE
    .navigate URL
    .Visible = True
End With

MsgBox "Please, logon and ok."

Do While appIE.readyState <> READYSTATE_COMPLETE: Loop

Set doc = appIE.document
Set UserN = doc.getElementsByName("nrCE")
If Not UserN Is Nothing Then
    UserN(0).Value = ncem
End If