Скачивание файлов с HTTP-ресурса - VB

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _
    ByVal pCaller As Long, _
    ByVal szURL As String, _
    ByVal szFileName As String, _
    ByVal dwReserved As Long, _
    ByVal lpfnCB As Long _
    ) As Long
 
Private Sub Command1_Click()
 
    HomeDir$ = App.Path
    
    HomeUrl$ = Me.Text1.Text
    
    p% = InStrRev(HomeUrl$, "/")
    
    HomeUrl$ = Left$(HomeUrl$, p% - 1)
    
    URLDownloadToFile 0, Me.Text1.Text, HomeDir$ + "\111.111", 0, 0
 
    Me.List1.Clear
    
    fi% = FreeFile
    
    Open HomeDir$ + "\111.111" For Binary Access Read As #fi%
    
    LF& = LOF(fi%)
    
    Buf$ = Space$(LF&)
    
    Get #fi%, , Buf$
    
    Close #fi%
    
    ppp& = InStr(Buf$, "alt=""[   ]""")
    
    Do
       
       b& = InStr(ppp&, Buf$, "<a href=")
       
       If b& = 0 Then Exit Do
              
       e& = InStr(b& + 1, Buf$, ">")
       
       fnam$ = Mid$(Buf$, b& + 9, e& - b& - 10)
              
       Me.List1.AddItem fnam$
        
       ppp& = e& + 1
        
    Loop
 
End Sub
 
Private Sub Command2_Click()
 
    HomeDir$ = App.Path
    
    HomeUrl$ = Me.Text1.Text
    
    p% = InStrRev(HomeUrl$, "/")
    
    HomeUrl$ = Left$(HomeUrl$, p% - 1)
    
    For i% = 0 To Me.List1.ListCount - 1
    
        If Me.List1.Selected(i%) Then
        
           fnam$ = Me.List1.List(i%)
           
           URLDownloadToFile 0, HomeUrl$ + "/" + fnam$, HomeDir$ + "/" + fnam$, 0, 0
        
           Me.List1.Selected(i%) = False
        
           DoEvents
        
        End If
        
    Next i%
 
    MsgBox "OK!"
 
End Sub
 
Private Sub Command3_Click()
    Unload Me
End Sub