VB调用下面XML ，该如何写POST？

POST/2014-06-30/Accounts/e03bc9106c6ed0eaebfce8c368fdcd48/Clients.xml?sig=3C861C9CFA64862A79B906D80EDB79BA
Host:api.ucpaas.com
Accept:application/xml
Content-Type:application/xml;charset=utf-8
Authorization:ZTAzYmM5MTA2YzZlZDBlYWViZmNlOGMzNjhmZGNkNDg6MjAxNDA2MjMxNzE2MzI=

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>

e462aba25bc6498fa5ada7eefe1401b7
97854038
1
1
18612345678

    url = "/2014-06-30/Accounts/" & Trim(Me.Text1.Text) & "/Clients.xml?sig=" & url


         postData = "appId=0531613ee350406f83b36827a666d54c&friendlyName=123456&clientType=0&charge=1&mobile=13714402923"
      Set HttpClient = CreateObject("Microsoft.XMLHTTP")
      HttpClient.Open "POST", url, False
      HttpClient.SetRequestHeader "Host", "api.ucpaas.com"
      HttpClient.SetRequestHeader "Accept", "application/xml"
      HttpClient.SetRequestHeader "Content-Type", "text/xml; charset=UTF-8"
      HttpClient.SetRequestHeader "Authorization", Base64.Base64Encode(Trim(Me.Text1.Text) & ":" & Format(Now, "yyyyMMddHHmmss"))
      HttpClient.Send pvToByteArray(postData)

http://www.cnblogs.com/soundcode/archive/2013/03/18/2966268.html

VB现在好少人用了，都没有人回答了