dowenloading large files with Inet

[deane034]

ok guys... this is a sub i created form a code i collected from somewhere.... but the thing is.. i cant.. donwload large files with it.. how do i correct this problem?

*******************************************


Private Sub Download(strURL As String)
Dim b() As Byte
Dim intCount As Integer
Dim strData As String

Inet.Cancel ' Stops any current operations

b() = Inet.OpenURL(strURL, icByteArray)

For intCount = 0 To UBound(b) - 1

strData = strData & Chr(b(intCount))

Next intCount


Open App.Path & NextFile For Output As #1

Print #1, strData

Close #1
MsgBox "d"

End Sub