problem med at hente fil via http

jeg har en funktion der skal hente en fil fra en url
den melder ikke fejl men den henter heller ikke filen
koden kommer her:

Public Sub httpGet(url As String, filename As String)
   
    On Error Resume Next
   
    filename = App.Path & "\" & filename
    MsgBox (url & vbCrLf & filename)
   
    Dim b() As Byte
    httpSock.Cancel
    httpSock.Protocol = icHTTP
 
    b() = httpSock.OpenURL(url, icByteArray)

    Open filename For Binary Access Write As #1
    Put #1, , b()
    Close #1
   
End Sub