MsInetDownl

Dim download() As Byte
Dim ending As String

ending = Right(Text1.Text, 4)

download() = Inet1.OpenURL(Text1.Text, icByteArray)
Open App.Path + "\file" + ending For Binary As #1
Put #1, , download()
Close #1

MsgBox "File Salvato su " + App.Path + _
"\file" + ending, vbSystemModal, "Download Completo"