Private Sub Timer1_Timer()
Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
 
 For i = 0 To List1.ListCount - 1
     On Error Resume Next
 
 
     Dim d() As Byte
 
 
       WinHttpReq.Open "GET", List1.List(i)
 
        WinHttpReq.Send
  test = Mid(List1.List(i), InStrRev(List1.List(i), "/") + 1)
        Open App.Path & "\" & test For Binary As #1
    d() = WinHttpReq.ResponseBody
    Put #1, 1, d()
    Close
Next
End Sub