ho fatto così e funziona:

Dim byteData() As Byte
Dim intFile As Integer
strUrl = "http://www.sito.com/img.jpg"
intFile = FreeFile()
byteData() = Inet1.OpenURL(strUrl, icByteArray)
Open App.Path + "\sp.dat" For Binary Access Write As #intFile
Put #intFile, , byteData()
Close #intFileb

img1.Picture = LoadPicture(App.Path + "\sp.dat")

ciao