如何等待WebBrowser在VB.NET中包含任何文本？

Question

我正在VB.NET应用程序中使用WebBrowser控件加载URL，然后等待页面包含文本“ done”和msgbox（“ done”）

我尝试了以下代码，但没有用

        WebBrowser1.Navigate("<my url>")
        Do Until WebBrowser1.ReadyState <> WebBrowserReadyState.Complete
            Application.DoEvents()
        Loop
        Do Until WebBrowser1.Document.Body.InnerText.Contains("done")
            Application.DoEvents()
        Loop
        MsgBox("done")

干杯！