Dim xDoc As New XmlDocument
Dim xNodeList As XmlNodeList
Dim xData As XmlNode
Dim text As String
Dim n As Int32 = 0
 
xDoc.Load("http://www.spiegel.de/schlagzeilen/rss/0,5291,,00.xml")
 
xNodeList = xDoc.SelectNodes("//item")
 
For Each xNode As XmlNode In xNodeList
        xData = xNode.SelectSingleNode("title")
         text += xData.InnerText + Environment.NewLine + Environment.NewLine
         n += 1
         If n > 20 Then Exit For
Next
 
MsgBox(text)

Visual Basic Express 2010, C# Express 2010
Intel? i7 Core 920@2.63 Ghz, 6 GByte DDR3, 1024 MB ATI? Radeon? 5870, Windows 7 Prof. 64 Bit
Gibson SG 61' Reissue ; Ibanez Prestige RG 2550 E, Marshall Valvestate VS100 + Modell Vs412 (4 x 12''), Cubase Studio