Code:
CODE
Dim localFile As String
Dim remoteFile As String
Dim fNum As Long
Dim b() As Byte
remoteFile = "http://www.site.com/image.jpg"
localFile = "C:\image.jpg"
fNum = FreeFile
b() = Inet1.OpenURL(remoteFile, icByteArray)
Open localFile For Binary As #fNum
Put #fNum, , b()
Close #fNum
MsgBox "Done"
Hope this helps.

