Need a bit of help web scraping via MSXML2.XMLHTTP

Question

I have code that correctly scrapes data ...

Sub Phase3()
    
    Dim Doc                         As HTMLDocument
    Dim ar(1 To 250, 1 To 3)        As Strin