How can I send http post some xml code in excel vba.

I have the follwowing code;

Sub Macro1()
'this is the xml code I have typed in excel vba'

<GovTalkMessage xsi:schemaLocation="" xmlns="" xmlns:dsig="" xmlns:gt="" xmlnssi="">
<Header> -
<MessageDetails> <Class>CompanyDetails</Class>
<SenderDetails> -
<Keys />
<CompanyDetailsRequest xmlnssi="" xsi:noNamespaceSchemaLocation="">
<CompanyName>Bridger Limited</CompanyNumber>

'this is the http post code in the same excel vba vba'
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
URL = ""
objHTTP.Open "POST", URL, False
objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.send ("")

End Sub