Private Sub Command1_Click()
  Dim dom As New DOMDocument
  Dim http As New XMLHTTP
  Dim strRet As String
  If Not dom.Load("c:\\CH.xml") Then MsgBox "?????"
  http.Open "Post", "http://172.31.132.173/u8eai/import.asp", True '?????ASP
  http.send dom.xml '?xml????????
  strRet = http.responseText 'strRet:???xml???????
  MsgBox strRet
End Sub

The error message, in Chinese: ???? ???????????????. translated by google(To English): Real-time error The data needed to complete the operation can not be used also