saving multiple files from a server using inet.

i have a tricky problem that freezes my editor. first of all, here is my code.

Code:

---

Private Sub monkey_Click()
'set a reference to the Microsoft Internet Transfer Control then use the code below
Label4.Caption = "clicked"
    'set protocol to HTTP
   
        For parsetext = 0 To intCount - 1
        Label4.Caption = "iterating..."
          'set URL
          urlnamez = urlArray(parsetext)
          filenamez = fileArray(parsetext)
         
         
         
          Inet1.URL = Text1.Text & urlnamez
   
          ' Retrieve the HTML data into a byte array.
          b() = Inet1.OpenURL(Inet1.URL, icByteArray)
   
          ' Create a local file from the retrieved data.
          Open Text4.Text & filenamez For Binary Access Write As #5
          Put #5, , b()
          Close #5
   
   
        Next



End Sub

---

what it actually is supposed to do, is take 2 arrays, in this case, they are called "urlarray" and "filearray". it then takes the url from the urlarray (its full of urls, already ;), load the data from it into a variable, then save this data, using a filename specified, in the same location, in "filearray".

however, its simply crashes my workstation. :(

does anyone have any insight as to why this happens?

thanks in advance.

Gabe