Private Const sampleDocument As String = "" _ & "cod0123456789" _ & "Taro" _ & "Jiro" _ & "Hanako" _ & "" Private Sub walk(ByVal node As XmlNode) If node.NodeType = XmlNodeType.Element _ AndAlso node.LocalName = "user" AndAlso node.NamespaceURI = "http://sample/" Then System.Diagnostics.Trace.WriteLine(node.InnerText) End If For Each child As XmlNode In node.ChildNodes walk(child) Next End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim doc As XmlDocument = New XmlDocument doc.LoadXml(sampleDocument) Dim nsmgr As XmlNamespaceManager = New XmlNamespaceManager(doc.NameTable) nsmgr.AddNamespace("myns", "http://sample/") ' 子を順番で決め打ち System.Diagnostics.Trace.WriteLine(doc.ChildNodes(0).ChildNodes(0).InnerText) ' 木を歩く walk(doc) ' GetElementsByTagNameを使う Dim list1 As XmlNodeList = doc.GetElementsByTagName("user", "http://sample/") For Each node As XmlNode In list1 System.Diagnostics.Trace.WriteLine(node.InnerText) Next ' SelectNodesを使う Dim list2 As XmlNodeList = doc.SelectNodes("//myns:user", nsmgr) For Each node As XmlNode In list2 System.Diagnostics.Trace.WriteLine(node.InnerText) Next ' SelectSingleNodeを使う System.Diagnostics.Trace.WriteLine(doc.SelectSingleNode("//myns:code", nsmgr).InnerText) End Sub