（Excel VBA）循环指定的时间段

Question

我正在尝试构建一个循环两分钟的宏，并检查是否每隔几秒钟就会发生一些变化。

我的宏打开了一个Internet Explorer窗口，我的目的是每隔几秒检查用户是否已导航到页面的特定部分，然后存储URL并退出Internet Explorer的实例。检测到这种情况发生了。

现在我的循环不起作用，它会在if语句中抛出一个错误。我认为这是时间循环我做错了，因为这是我不熟悉的事情。

有人可以帮我指出正确的方向吗？

Dim ieApp As InternetExplorer: Set ieApp = New InternetExplorer
ieApp.Visible = True
ieApp.Navigate URL

Dim wait_until As Date: wait_until = now + #12:02:00 AM#
Dim str_result As String

Do While wait_until <> now
    If ieApp.Document.Title = "Result" Then
        str_result = ieApp.LocationURL
        ieApp.Quit
        Set ieApp = Nothing
        Exit Do
    End If
    Application.Wait now + #12:00:02 AM#    
Loop