"-F importerZipPackage=""@" & strPacketPath & _
  ";type=application/x-zip-compressed"""

    Const strBoundary As String = _
      "---------------------------WebKitFormBoundary7MA4YWxkTrZu0gW"
 
 
    strBeginBoundary = "--" & strBoundary       ' Einleitende Sequenz
    strEndBoundary = "--" & strBoundary & "--"  ' Abschluss Sequenz
 
    strRequest = ""
 
    add strRequest, strBeginBoundary, True
    add strRequest, "Content-Disposition: form-data;" & _
      "name=""importerZipPackage""; filename=""uploadPacket.zip""", True
    add strRequest, "Content-Type: application/x-zip-compressed", True
    add strRequest, "", True
    add strRequest, strFileData, True
    add strRequest, "", True
    add strRequest, strEndBoundary
 
    Set XMLHttp = New XMLHttp
 
 
    With XMLHttp
        .Open "POST", strUploadURL, False, strUserName, strPasswort
        Call .setRequestHeader("Auth-Token", strAuthKey)
        Call .setRequestHeader("Content-Type", "multipart/form-data; boundary=" _
          & strBoundary)
        Call .send(strRequest)
 
    End With
    lngStatus = XMLHttp.Status
 
    strResponse = XMLHttp.responseText

Private Sub add(strVariable As Variant, strNewText As Variant, Optional _
  bolNewLine As Boolean = False)
    strVariable = strVariable & strNewText
    If bolNewLine Then strVariable = strVariable & vbNewLine
End Sub