i'm on vb6, i need to set a get with https://oauth.openapi.it/counters/total

I use for all my get rest API this code in vb6:

Option ExplicitPrivate Sub RestExample()Dim APICall As StringDim myXML As New MSXML2.DOMDocument60APICall = "http://www.zzzzzzzzzzzzzzzzzzzzzzzzzz"With CreateObject("MSXML2.XMLHTTP")    .Open "GET", APICall, False    .setRequestHeader "Authorization", "zzzzzzzzzzzzzzzzzzzzzzz"    .send    Debug.Print .responseTextEnd WithEnd Sub

how to set this code for this curl:

https://oauth.openapi.it/counters/total

note:I just have email address and APIkeythe scope service is: imprese.openapi.it