How to recode into XMLHTTP60

I'm trying to reproduce the code below into XMLHTTP as IE is too slow. Basically this code will click the button "Mostrar Mas" until all the information is showed. Then I get the full table and and write it down in a sheet. The code below works perfectly with IE, but when I try to reproduce it with XMLHTTP the attribe "style" can't be captured.

Here my try:

Sub WorksFine()

    Dim IE As Object
    Dim btn As MSHTML.HTMLDivElement
    Dim TRs As MSHTML.IHTMLElementCollection
    Dim Table As MSHTML.IHTMLTable

    Set IE = CreateObject("InternetExplorer.Application")

    IE.Visible = True

    IE.navigate ""
    Do While IE.readyState = 4: DoEvents: Loop
    Do Until IE.readyState = 4: DoEvents: Loop
    Set btn = IE.document.getElementById("showMoreEarningsHistory")

    Do Until (IE.document.getElementById("showMoreEarningsHistory").getAttribute("style") = "display: none;")
        Debug.Print (IE.document.getElementById("showMoreEarningsHistory").getAttribute("style"))
    Set TRs = IE.document.getElementsByTagName("table")
    Debug.Print TRs.item(1).innerText

  End Sub

This was my try

Sub DoesnotWork()

    Dim XMLReq As New MSXML2.XMLHTTP60
    Dim HTMLDoc As New MSHTML.HTMLDocument
    Dim TRs As MSHTML.IHTMLElementCollection
    Dim btn As HTMLDivElement
    XMLReq.Open "POST", "", False
    XMLReq.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    XMLReq.setRequestHeader "Accept", "text/plain"
    XMLReq.setRequestHeader "X-Requested-With", "XMLHttpRequest"
    If XMLReq.Status <> 200 Then
        MsgBox "problem" & vbNewLine & XMLReq.Status & "- " & XMLReq.statusText
        Exit Sub
    End If

    HTMLDoc.body.innerHTML = XMLReq.responseText

   Set btn = HTMLDoc.getElementById("showMoreEarningsHistory")

    Do Until (HTMLDoc.getElementById("showMoreEarningsHistory").getAttribute("style") = "display: none;")
        Debug.Print (HTMLDoc.getElementById("showMoreEarningsHistory").getAttribute("style"))

    Set TRs = HTMLDoc.getElementsByTagName("table")
    Debug.Print TRs.item(1).innerText

End Sub

I'm also unsure if the HTMLDoc object is updated each time I click the button as it does IE within the browser. Any help will be appreciated.