I wrote a while ago a program in Excel VBA that can read a HTML page and extract specific information about the price of my game collection. It was working fine until a month ago where everything stops working and I can't get why it doesn't work anymore and I need some help to solve that.

so here the code

```
    Dim htm As Object           ' tableau HTML venant du site pricecharting
    ' Find price over internet
    With CreateObject("msxml2.xmlhttp")
       .Open "GET", "http://videogames.pricecharting.com/game/" & console & "/" & name & "", False
       .Send
       htm.body.innerhtml = .responsetext
    End With

    ' what I want is in a table row 1 and cell 0 (used price)
    Cells(ligne + 1, 3).Value = htm.getelementbyid("price_data").Rows(1).Cells(0).innerText

```

and here is an example page where "console" has been replaced by nintendo-64 and "name" by mario-kart-64:

<https://www.pricecharting.com/game/nintendo-64/mario-kart-64>

```
<div id="price_data" class="info_box">
        <div id="used_price">
            <h3>Loose <span>Price</span></h3>
            <p class="price">
        $44.60
            </p>
            <p class="js-show-tab volume" data-show-tab="completed-auctions-used">
    <span class="tablet-portrait-hidden">Volume:&nbsp;</span>
    <a href="#">3 sales per day</a>
</p>
        </div>

        <div id="complete_price">
            <h3>Complete <span>Price</span></h3>
            <p class="price">
        $65.99
            </p>
            <p class="js-show-tab volume" data-show-tab="completed-auctions-cib">
    <span class="tablet-portrait-hidden">Volume:&nbsp;</span>
    <a href="#">2 sales per week</a>
</p>
        </div>

        <div id="new_price">
            <h3>New <span>Price</span></h3>
            <p class="price">

        $178.14

            </p>
            <p class="js-show-tab volume" data-show-tab="completed-auctions-new">
    <span class="tablet-portrait-hidden">Volume:&nbsp;</span>
    <a href="#">2 sales per month</a>
</p>
        </div>
</div>

```

my goal (that I succeed) was to go and extract the price $44.60 but then, like I said, it doesn't work anymore, I got the error '-2147024891 (80070005)': access denied.

Can someone help me? I'm quite new at this so most of the information I find are too complicated for me to understand.