Microsoft.XMLHTTP или MSXML2.ServerXMLHTTP или WinHttp.WinHttpRequest.5.1 или MSXML2.ServerXMLHTTP.6.0 или MSXML2.XMLHTTP.6.0

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

Dim a$, b$
a = ThisWorkbook.Path & "\" & ThisWorkbook.Name 'ОТКУДА
b = "D:\" & ThisWorkbook.Name 'КУДА
CreateObject("Scripting.FileSystemObject").GetFile(a).Copy b

Sub GET_Internet()
Dim XMLHTTP As Object
Dim Myurl$, Txt$, Str$
Dim n&, k&

Myurl = "https://tot-kom.ru/catalog/mebelnaya-furnitura/shchetochnye-uplotniteli/derzhatel-schetochnogo-uplotnitelya-absolut/?sphrase_id=1571"
'Myurl = "https://tot-kom.ru/catalog/mebelnaya-furnitura/shchetochnye-uplotniteli/schetochnyy-uplotnitel-6mm-bez-kleya-seryy-325m-tecseal/"

Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
XMLHTTP.Open "GET", Myurl, False
XMLHTTP.send
If XMLHTTP.Status = 200 Then
    Txt = XMLHTTP.responseText
    n = InStr(1, Txt, "price", vbTextCompare)
    n = InStr(n, Txt, "<p>", vbTextCompare) + 3
    k = InStr(n, Txt, "<span>", vbTextCompare)
    Str = Replace(Trim(Mid(Txt, n, k - n)), ".", ",")
    MsgBox Str & " Рублёв"
    'Debug.Print Txt
Else
    MsgBox "Отсутствует соединение..."
End If
Set XMLHTTP = Nothing
End Sub

Sub Parser_USD()
Dim OBJHTTP As Object
Dim Url$, Str$
Set OBJHTTP = CreateObject("MSXML2.XMLHTTP")
Url = "https://p2p.binance.com/bapi/c2c/v2/friendly/c2c/adv/search"
With OBJHTTP
    .Open "POST", Url, False
    .setRequestHeader "Accept", "*/*"
    .setRequestHeader "Content-type", "application/json"
    .setRequestHeader "Origin", "https://p2p.binance.com"
    .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/86.0.4240.198 Safari/537.36"
    .send "{""page"":1,""rows"":10,""payTypes"":[],""asset"":""USDT"",""tradeType"":""BUY"",""fiat"":""USD"",""publisherType"":""merchant"",""merchantCheck"":true}"
    Str = .ResponseText
End With
Set OBJHTTP = Nothing
End Sub