'News laden
Private Sub loadthenews()
Dim readXML As New XmlTextReader(Application.StartupPath & "\heise-atom.xml") 
 
 
        With readXML 'xreader
            Do While readXML.Read() 'xreader.Read()
                If .NodeType = XmlNodeType.Element And .Name = "title" Then
                    Me.Text = Me.Text & " - " & .ReadElementString()    ' Title 
                    ' auslesen
                End If
                If .NodeType = XmlNodeType.Element And .Name = "subtitle" Then
                    Me.Text = Me.Text & " - " & .ReadElementString()
                End If
                If .NodeType = XmlNodeType.Element And .Name = "title" Then
                    Me.Text = Me.Text & " - " & .ReadElementString() 
               End If
            Loop
        End With
End Sub

VB@rchiv its the Best