Imports System

Imports System.Collections.Generic

​

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

Public Module Module1

​

    Public Sub Main()

        Dim input As String = "{""data"": {""89359"": {""name"": ""A"" }, ""89360"": {""name"": ""B"" } } }"

        Dim data = JsonConvert.DeserializeObject(Of JObject)(input)

        Dim dataItems = data.Item("data").ToObject(Of Dictionary(Of Integer, DataObject))

​

        For Each dataItem In dataItems

            Console.WriteLine("Key: {0}, DataObject.Name: {1}", dataItem.Key, dataItem.Value.name)

        Next

    End Sub

​

End Module

​

Public Class DataObject

​

    Public Property name As String

​

    ' ...

​

End Class

​