MSXML2.ServerXmlHttp

Reference - Microsoft XML v6.0

POST

This uses a dedicated HTTP client stack

Dim http As Object 
   Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0") 

   http.Open "POST", "https://api.example.com/data", False 
   http.setRequestHeader "Content-Type", "application/json" 
   http.send "{""name"":""Russell""}" 

   Debug.Print http.Status 
   Debug.Print http.responseText 

GET

Dim xmlhttp As New MSXML2.ServerXMLHTTP 

xmlhttp.Open Method, URL, async(true or false) 
myurl = "http://bettersolutions.com/myurl" 
xmlhttp.Open "GET", myurl, False 
xmlhttp.Send 
MsgBox(xmlhttp.responseText) 

xmlhttp.setRequestHeader "Content-Type", "text/json" 
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
xmlhttp.setRequestHeader "User-Agent", "Mozilla/5.0" 
xmlhttp.setRequestHeader "Authorization", AuthCredentials 

user = "someusername" 
password = "somepassword" 
xmlhttp.setRequestHeader "Authorization", "Basic " + Base64Encode(" & "myusername" & ":" & "mypassword" & ")"