Dim XMLHTTP As MSXML2.XMLHTTP
Set XMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    XMLHTTP.open "POST", "https://efaktura.mfin.gov.rs/api/publicApi/get-unit-measures", False
    XMLHTTP.setRequestHeader "Accept", "application/json"
    XMLHTTP.send "ApiKey=462d9282-22cf-4d0b-afbe-17411d375a18"
MsgBox XMLHTTP.responseText
Set XMLHTTP = Nothing