Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim doc As XmlDocument = New XmlDocument() doc.Load("c:\sample2.xml") Dim nsmgr1 As XmlNamespaceManager = New XmlNamespaceManager(doc.NameTable) nsmgr1.AddNamespace("smpl", "http://www.atmarkit.co.jp/xmlns/sample/shoseki/info") Dim list1 As XmlNodeList = doc.SelectNodes("/smpl:書籍情報/smpl:著者", nsmgr1) If list1.Count > 0 Then Dim list2 As XmlNodeList = list1(0).SelectNodes("smpl:名前", nsmgr1) Dim node As XmlNode For Each node In list2 Trace.WriteLine(node.InnerText) Next End If End Sub