Imports System.Xml

Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim xmldoc As New XmlDataDocument()

        Dim xmlnode As XmlNodeList

        Dim i As Integer

        Dim str As String

        Dim fs As New FileStream("products.xml", FileMode.Open, FileAccess.Read)

        xmldoc.Load(fs)

        xmlnode = xmldoc.GetElementsByTagName("Product")

        For i = 0 To xmlnode.Count - 1

            xmlnode(i).ChildNodes.Item(0).InnerText.Trim()

            str = xmlnode(i).ChildNodes.Item(0).InnerText.Trim() & " | " & xmlnode(i).ChildNodes.Item(1).InnerText.Trim() & " | " & xmlnode(i).ChildNodes.Item(2).InnerText.Trim()

            MsgBox(str)

        Next

    End Sub

End Class