Private Sub cmdStart_Click()
    Dim sURL As String
    Dim sDateiPfad As String
    Dim iDateiNr As Integer
    sURL = lstURLs.Text
    sDateiPfad = "C:\datei.exe"
    With inetTest
     .AccessType = icUseDefault
     .Protocol = icHTTP
     b_Bytes = .OpenURL(sURL, icByteArray)
    lblStatus.Caption = "Datei wird heruntergeladen..."
     Do Until .StillExecuting = False
      DoEvents
     Loop
   End With
   iDateiNr = FreeFile
   Open sDateiPfad For Binary Access Write As iDateiNr
    Put #iDateiNr, , b_Bytes()
   Close iDateiNr
   lblStatus.Caption = "Datei heruntergeladen und gespeichert!"
End Sub