VB中对XML的读取是怎样的？小弟我是VB新手，求指教

VB中对XML的读取是怎样的？我是VB新手，求指教
'先引用microsoft xml ,v5.0对象
  Private Sub loadxml()
  Dim XML As Xml.XmlDocument 'xml 对象
  Dim XmLRoot As MSXML2.IXMLDOMElement 'xml根节点
  Dim I As Integer
  XML = New Xml.XmlDocument
  If XML.Load([color=#00FF00]App.Path & "/XML.xml") = False Then '(app.path & "/XML.xml")[/color]
  MsgBox("打开xml出错！")
  Exit Sub
  End If
  XmLRoot = XML.DocumentElement '建立根节点对象
  For I = 1 To XmLRoot.childNodes.length
  MsgBox(XmLRoot.childNodes.item(I).nodeName) '获得所有根节点下所有子节点的节点名
  MsgBox(XmLRoot.childNodes.item(I).text) '获得所有根节点下所有子节点所含的文本内容
  Next
  XML = Nothing
  End Sub
End Class




------解决方案--------------------
有什么问题呢？