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 n As XmlNode = doc.SelectSingleNode("//rss/channel/title")

        Dim nodeName As String = n.Name
        Dim title As String = n.InnerText

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

        Console.ReadLine()
    End Sub
End Module