Function returnerer run-time error - Noget med hentning af filer

Jeg har en funktion som henter filer fra en række links, de fleste gange går det fint, andre gange får jeg bare en run-time error

Bedst selvfølgelig at finde ud af hvorfor ...
Men ellers ville det være skønt om jeg blot fik en melding i en celle om at noget gik galt, hvorefter funktionen kunne gå videre til næste ...

Nogen der kan hjælpe ...

Tak

Funktionen har jeg sat ind herunder ...

Function fetch(url, out)
    Err.Clear
    Dim b
    With CreateObject("Microsoft.XMLHTTP")
        .Open "GET", url, False
        .Send
    b = .ResponseBody
        If Err.Number <> 0 Or .Status <> 200 Then
            fetch = False
            Exit Function
        End If
    End With
    With CreateObject("ADODB.Stream")
        .Type = 1
        .Open
        .Write b
        .SaveToFile out, 2
    End With
    fetch = True
End Function