Dim xmlPath As String = "...."
 
        Dim Ausgabe As String
 
        Try
            Dim m_xmld As New XmlDocument
            m_xmld.LoadXml(IO.File.ReadAllText(xmlPath))
            Dim dfns As String = "http://www.infograph.com"
            Dim nsm As New XmlNamespaceManager(m_xmld.NameTable)
            nsm.AddNamespace("xx", dfns)
 
            Dim m_nodelist As XmlNodeList
            Dim m_node As XmlNode
 
            m_nodelist = m_xmld.SelectNodes( _
              "/xx:IGCMarkupEntityDocument/xx:Line/xx:PointList/xx:Point", nsm)
 
            For Each m_node In m_nodelist
                'Get the first Element Value
                Dim XValue = m_node.ChildNodes.Item(0).InnerText
                'Get the second Element Value
                Dim YValue = m_node.ChildNodes.Item(1).InnerText
                Ausgabe = Ausgabe & vbCrLf & "X " & XValue.ToString & " Y " & _
                  YValue.ToString
            Next
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
        MsgBox(Ausgabe)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist