Private Sub MarkUpReader(ByVal xmlString As String)
        Dim i As Integer = 0
        ReDim KoArr(98, 1)              ' zerstört die alten Koordinaten
        Try
            Dim m_xmld As New XmlDocument
            m_xmld.LoadXml(xmlString)
            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
                i = i + 1                   ' Zähler um eins erhöhen
                KoArr(i, 0) = XValue.ToString
                KoArr(i, 1) = YValue.ToString
            Next
        Catch
            ReDim KoArr(98, 1)
            Err.Clear()
        End Try
    End Sub

Danke für die Hilfe

Gruß Christian