Imports System

imports Newtonsoft.Json.Linq

Public Module Module1

    Public Sub Main()

        Dim json As String =

        "{" +

        "  ""name"": ""Tiger Nixon""," +

        "  ""position"": ""System Architect""," +

        "  ""salary"": ""$320,800""," +

        "  ""start_date"": ""2011/04/25""," +

        "  ""office"": ""Edinburgh""," +

        "  ""extn"": ""5421""" +

        "}"

        Dim jo As JObject = JObject.Parse(json)

        jo = New JObject(New JProperty("data", New JArray(jo)))

        Console.WriteLine(jo.ToString())

    End Sub

End Module