Untitled

Imports System.IO
Imports System.Xml

Module Module1

    Sub Main(ByVal sArgs() As String)

        Dim Xml As String
        Xml = System.IO.File.ReadAllText("news_google.xml")

        Dim doc As XmlDocument = New XmlDocument()
        doc.LoadXml(Xml)

        Dim nlist As XmlNodeList = doc.SelectNodes("//rss/channel/item/title")

        For Each n As XmlNode In nlist
            Dim nodeName As String = n.Name
            Dim title As String = n.InnerText

            Console.WriteLine("Node name: {0}", nodeName)
            Console.WriteLine("Node contents: {0}", title)
        Next

        Console.ReadLine()
    End Sub
End Module