HTTP запрос через vba с xml данными

Public Sub UploadXml(session As String)
Dim testXml As String
testXml = "<?xml version=" & Chr(34) & "1.0" & Chr(34) & "encoding=" & Chr(34) & "UTF-8" & Chr(34) & "standalone=" & Chr(34) & "yes" & Chr(34) & "?>" _
            & "<apiRequest>" _
            & " <sessionID>session</sessionID>" _
            & " <orderReference>999999999999</orderReference>" _
            & " <orders>" _
            & "     <order>" _
            & "         <areaOfControl>Курьеры</areaOfControl>" _
            & "         <date>28.11.2021</date>" _
            & "         <location>" _
            & "             <name>ИП Тест</name>" _
            & "             <address>Россия, Москва, Скандинавский бульвар, д.6</address> " _
            & "         </location>" _
            & "         <dropWindows>" _
            & "             <dropWindow>" _
            & "                 <start>28.11.2021 08:00</start>" _
            & "                 <end>28.11.2021 12:00</end>" _
            & "             </dropWindow>" _
            & "         </dropWindows>" _
            & "     </order>" _
            & " </orders>" _
            & "</apiRequest>"

Dim xmlhttp As Object
Set xmlhttp = CreateObject("WinHttp.WinHttpRequest.5.1")
Dim myDom As Object
Set myDom = CreateObject("MSXML2.DOMDocument.6.0")
myDom.async = False

url = "http://test.maxoptra.com/rest/2/distribution-api/orders/save"
myXMLstr = url & testXml
myDom.Load (myXMLstr)

xmlhttp.Open "post", url, False
xmlhttp.setRequestHeader "Content-Length", Len(testXml)
xmlhttp.setRequestHeader "Content-Type", "text/xml"

xmlhttp.send myDom.xml
MsgBox xmlhttp.responseText
          
End Sub