Try this. Not sure if it will work, but there were errors in converting the syntax.

objXML = CreateObject("MSXML.DOMDocument")
objXML.load ("e:\tmp1\yourfile.xml")
If objXML.parseError.errorCode = 0
objHttp = CreateObject("Microsoft.XMLHTTP")
objHttp.open("POST", "http://your-server.com/", .F.)
objHttp.send(objXML)
strStatus = "Server Status: " + str(objHttp.Status) + " - " + ;
objHttp.StatusText
= MessageBox(strStatus)
Else
= MessageBox(objXML.parseError.reason)
End If

Charlie