MSXML send pas envoyé

Bonjour,
J'utilise MSXML2.ServerXMLHTTP.6.0 pour invoquer une page web
La plupart du temps ça fonctionne très bien
mais j'ai l'impression que parfois elle n'est pas appelée du tout
voici mon code (URL contient bien l'adresse de la page web à appeler)

Public Function HTTP(URL As String) As String
Dim objHTTP As Object
Dim strURL As String
Const SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS = 13056

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP.6.0")
objHTTP.setOption 2, SXH_SERVER_CERT_IGNORE_ALL_SERVER_ERRORS
objHTTP.Open "GET", URL
objHTTP.send
If objHTTP.Status = 200 Then
        HTTP = objHTTP.responseText
Else
        HTTP = "HTTP " & CStr(objHTTP.Status) & " " & objHTTP.StatusText
End If
Set objHTTP = Nothing

parfois au retour HTTP est vide, je ne comprends pas pourquoi.
Comment savoir si .send a fonctionné et, sinon, pourquoi ?
Merci d'avance pour votre aide.