怎么读取一段标准xml格式的string，只需要里面几个节点属性值

private sub command1_click() dim dom as new domdocument dom.async = false dom.load "a.xml" dim node as ixmldomnode set node = dom.selectsinglenode("root").selectsinglenode("order")

dim x as ixmldomnode for each x in node.childnodes     msgbox x.attributes.getnameditem("订单编号").text     msgbox x.attributes.getnameditem("下单时间").text next set dom = nothing end sub