im objHTTP As Object
Dim xmlDOC As Object
Dim content As String = getXMLContent()

objHTTP = CreateObject("MSXML2.XMLHTTP")
xmlDOC = CreateObject("Microsoft.XMLDOM")
Dim url As String = ConfigurationSettings.AppSettings.Item("ServiceURL")

Call objHTTP.Open("POST", url, False)
'Quite important to set the content-type
objHTTP.SetRequestHeader("Content-Type", "text/xml;charset=utf-8")
objHTTP.setRequestHeader("SOAPAction", "http://tempuri.org/SendRepairFormData")
objHTTP.setRequestHeader("Content-Length", content.Length)

If content = String.Empty Then
MsgBox("Can't find XML document")
Return
End If
xmlDOC.loadXML(content)
objHTTP.Send(xmlDOC)
//出错：
未处理的“System.ArgumentException”类型的异常出现在 microsoft.visualbasic.dll 中。

其他信息: 参数不正确。