Test af resultat af funktion

Hejsa.

Jeg kører en makro, som får hjælp af en funktion.

Funktionen henter billeder for mig, virker fint. Jeg ville gerne i min makro kunne teste om der opstod fejl eller ej

Hvordan gør jeg mon det ...

Herunder makro og funktion

Håber nogen kan hjælpe

Søren

. . . .

Sub hent()
    cFIL = "STREAM PHOTO 5.jpg"
    cOUT = "C:\down\"
    cURL = "http://www.mightystreamradio.com/PHOTOS/"
    strOUT = cOUT & cFIL
    strURL = cURL & cFIL
       
    Call fetch(strURL, strOUT)
                   
  If fetch = ?? Then
    MsgBox "Filen er downloadet til: " & strOUT
  Else
      MsgBox "Der er opstået en fejl"
  End If
       
End Sub

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 = Err.Number = 0
End Function