Download files using Inet

[Anders Englund]

I'm having some serious problems with this. I'm trying to make an auto-update feature, but the inet won't download the whole file. This is the code I'm using now:

Public Function GetFile(strURL As String) As Variant
  Dim b() As Byte
On Error Resume Next
  With frmCom.inetDVD1138
    .RequestTimeout = 500
    .Protocol = icHTTP
    
    b = .OpenURL(strURL, 1)
    Do Until .StillExecuting = False
      DoEvents
    Loop
  End With
  GetFile = b

End Function

Any suggestions?

//Anders