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


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

Set xHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0")
xHTTP.Open "GET", URL, True
[efb_likebox fanpage_url="" box_width="840" box_height=340"" responsive="1" show_faces="1" show_stream="1" hide_cover="1" small_header="0" hide_cta="0" locale="en_US"]