Lire Response header après XMLHTTP Post

Bonjour,
En VB6

With CreateObject("Microsoft.XMLHTTP")
.Open "POST", "URL du script php qui fait essentiellement move_uploaded_fil" & Folder, False  ' aSync = false
.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & STR_BOUNDARY
.send pvToByteArray(sPostData)
If .Status = 200 Then
' OK
Else
   Err = CStr(.Status) & " " & .StatusText
End If

J'obtiens parfois une erreur 503 Service Unavailable qui n'est pas très explicite.

Je vois qu'on peut obtenir davantage d'infos dans un Response header : comment l'obtenir et le décoder ?

Grand merci d'avance pour votre aide