vb call IE download interface

Private Declare Function DoFileDownload Lib "shdocvw.dll" _
    (ByVal lpszFile As String) As Long
Private Sub Command1_Click()   'ÏÂÔØ
 If Text1.Text = "" Then
    MsgBox "ÊäÈëÏÂÔØÍøÕ¾µÄÍøÖ·²»ÄÜΪ¿Õ!", 64, "ÌáʾÐÅÏ¢"
 Else
    Dim sDownload As String
    sDownload = StrConv(Text1.Text, vbUnicode)
    Call DoFileDownload(sDownload)
 End If
End Sub
Private Sub Command2_Click()
  End
End Sub