参考
Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Load("d:\dianping_list_122366383_117067139.xml")
Dim ndList = xmlDoc.GetElementsByTagName("item")
For i As Integer = 0 To ndList.count - 1
For Each cn As object In ndlist(i).ChildNodes
output.show(cn.name)
Next
Next
https://msdn.microsoft.com/zh-cn/library/system.xml.xmlelement_members%28v=vs.80%29.aspx