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

VB@rchiv its the Best