<?xml version="1.0" encoding="utf-8"?>
<phonebooks>
<phonebook>
<contact>
<category>0</category>
<person>
<realName>Quiupu</realName>
</person>
<telephony nid="1">
<number type="mobile" prio="1" id="0">013693721102</number>
</telephony>
<services /><setup />
<mod_time>1397651064</mod_time>
<uniqueid>7</uniqueid>
</contact>
<contact>
<category>0</category>
<person>
<realName>Salik, Jen</realName>
</person>
<telephony nid="2">
<number type="mobile" prio="1" id="0">013115523356</number>
<number type="work" prio="0" id="1">07139598708</number>
</telephony>
<services />
<setup />
<mod_time>1397650570</mod_time>
<uniqueid>8</uniqueid></contact>
<contact>
<category>0</category>
<person>
<realName>Apophis, Seth</realName>
</person>
<telephony nid="3">
<number type="home" prio="1" id="0">02711566230</number>
<number type="mobile" prio="0" id="1">01537547342</number>
<number type="work" prio="0" id="2">02627637639</number>
</telephony>
<services /><setup />
<mod_time>1397651761</mod_time>
<uniqueid>63</uniqueid>
</contact>
<contact>
</phonebook>
</phonebooks>

        objXML = New Xml.XmlDocument
        Try
            objXML.Load("d:\telefonbuch_fritz.xml")
        Catch ex As Exception
            MessageBox.Show("Fehler beim Laden des Dokumentes!", "Fehler", _
              MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
 
        For Each einKontakt As Xml.XmlNode In objXML.SelectNodes( _
          "/phonebooks/phonebook/contact")
            TextBox1.Text = TextBox1.Text & (einKontakt.ChildNodes( _
            1).InnerText) & vbCrLf
            TextBox1.Text = TextBox1.Text & (einKontakt.ChildNodes( _
            2).InnerText) & vbCrLf
        Next

EALA FREYA FRESENA