Private Declare Function DoFileDownload Lib "shdocvw" _
    (ByVal lpszFile As String) As Long
 
Private Sub Command1_Click()
 
   Dim sDownload As String
 
   sDownload = StrConv( _
     "http://www.leechget.net/en/phpBB2/get.php?filename=LeechGet", vbUnicode)
   DoFileDownload (sDownload)
End Sub