Dim readXML As New XmlTextReader(Application.StartupPath & "\heise-atom.xml")
        With readXML
            Do While readXML.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() ' Title auslesen
                End If
            Loop
        End With