QTP---VBS 读取XML中 对应标签的 值

先上一个简单的XML文档，如下
<?xml version="1.0"?>
<book>
<math>
<grade>grade 1</grade>
<name>math</name>
<price>$12.5</price>
</math>
<english>
<grade>grade 2</grade>
<name>english</name>
<price>$44.1</price>
</english>
</book>

Dim objXML ' object to hold the xml document
Dim objNode ' xml node object
Set objXML = CreateObject("Microsoft.XMLDOM")
objXML.load("C:\Users\Conan\Desktop\111.xml")
Set objNode = objXML.selectSingleNode("/book/english/price")
print objNode.text

输出值：$44.1