Since you already have the extracted binary data.. here's a sub to take that data and create a .jpg file. Just pass the binary data and a path to save (ie. c:\temp\pic.jpg).
Sub writeImage(binaryData, strFullPath)
Set objADO = CreateObject("ADODB.Stream")
objADO.Open
objADO.Type = 1
objADO.Position = 0
objADO.Write binaryData
objADO.SaveToFile strFullPath
Set objADO = Nothing
End Sub
If you didn't have the data, you could use this to pull it from a URL.
Function binaryURL(strURL)
Set objHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
objHTTP.Open "GET", strURL, False
objHTTP.Send
binaryURL = objHTTP.ResponseBody
End Function
And then just do a..
Call writeImage(binaryURL("http://i.imgur.com/fr16Y6W.jpg"), "C:\temp\pic.jpg")