xml取值

Dim xml_documentA As New Xml.XmlDocument
Dim valuesA_node As Xml.XmlNode
Dim errmessA_node As Xml.XmlNode
xml_documentA.LoadXml(xmltxt)
values_nodeA = xml_document.SelectSingleNode(".//aaa")
errmess_nodeA = xml_document.SelectSingleNode(".//bbb")
取值values_nodeA.InnerText.Trim()