Error Message:

VBA Run-time error ‘-2146697208 (800c0008)’: The download of the specified resource has failed.

VBA error code

Set xHTTP = CreateObject("MSXML2.XMLHTTP")
 xHTTP.Open "GET", URL, True
 xHTTP.Send 'VBA errors out on this line

Solution:

You need to switch “MSXML2.XMLHTTP with “MSZXML2.ServerXMLHTTP.3.0”

Set xHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0")
xHTTP.Open "GET", URL, True
xHTTP.Send