Create a query to convert the xml data into fields delimited by quotes and commas.
Imports System Imports System.Xml.Linq Imports Microsoft.VisualBasic.FileIO Imports System.Text Imports System.IO Public Class MainClass Public Shared Sub Main(ByVal args As String()) Dim employees As XElement = XElement.Load("xmlFile.xml") Dim delimitedData As New StringBuilder Dim xmlData = _ From emp In employees.<Employee> _ Select _ String.Format("""{0}"",""{1}"",""{2}"",""{3}"",""{4}""", _ emp.@id, emp.<Name>.Value, _ emp.<Title>.Value, emp.<HireDate>.Value, _ emp.<HourlyRate>.Value) End Sub End Class