Нужна помощь в коде VBA XMLHTTP для получения полной загрузки страницы или любого механизма ожидания

Question

Привет, я написал код ниже, чтобы получить полную загрузку страницы, используя метод VBA XMLHTTP, но каждый раз, когда я получаю частично загруженные данные.

Я хочу завершить, чтобы получить детализацию страницы после того, как она полностью загрузится, и я хочу это только через xmlhttp, а не через классы Internet Explorer.поэтому я попробовал весь механизм ожидания, но он не работает..

Option Explicit
Sub showXML()
    Dim xmlpage As New MSXML2.XMLHTTP60
    Dim HTMLDoc As New MSHTML.HTMLDocument
    Dim url As String

    url = "http://www.the-stockmarket.com/product/Moen-MO100429-Repair-Kit-35549?Ns=Primary_Finish%7C1%7C%7CSort_Order%7C1&No=26796&N=3000556+3000571+3000557+3000558+3000559+3000560+3000561+3000562+3000563+3000564+3000565+3000566"

    xmlpage.Open "GET", url, False
    Application.Wait (Now + TimeValue("0:00:20"))
    xmlpage.send

    With xmlpage

        While Not .readyState = 4                '<---------- wait
            Application.Wait Now + TimeValue("0:00:01")
        Wend

        If .Status = 200 Then
            While InStr(1, .responseText, "Retrieving ...", 0) > 0 '<---------- wait again
                Application.Wait Now + TimeValue("0:00:01")
            Wend
        End If
    End With

    Dim myfile As String
    myfile = "D:\test1.txt"

    Open myfile For Output As #11

    Write #11, xmlpage.responseText

    Close #11
End Sub

Мне нужны полные загруженные данные страницы.В настоящее время я получаю данные с текстом «Получение ...», но в загруженных данных я получу некоторое число.