sUrl = "http://coverlib.com/Download/1729291/The_Prodigy-The_Fat_Of_The_Land_UK-Front-.JPG"
sPath = "C:\Test\cover.jpg"
With CreateObject("Microsoft.XMLHTTP")
.Open "GET", sUrl, False
.Send
aContent = .ResponseBody
End With
With CreateObject("ADODB.Stream")
.Type = 1 ' adTypeBinary
.Open
.Write aContent
.SaveToFile sPath, 2 ' adSaveCreateOverWrite
.Close
End With