Imports System

Imports Newtonsoft.Json.Linq

Imports Newtonsoft.Json

Imports System.Xml

​

Public Class Program

​

    Public Shared Sub Main()

        Dim arg_strXml = "<Person><Name>foo</Name></Person>"

        Dim doc = New XmlDocument()

        doc.LoadXml(arg_strXml)

        Dim jsonValue = JsonConvert.SerializeXmlNode(doc)

        Dim jsonObject = JObject.Parse(jsonValue)

        Console.WriteLine(jsonObject("Person")("Name"))

    End Sub

End Class

​