Imports System

Imports System.Collections.Generic

Imports Newtonsoft.Json

​

Public Module Module1

    Private _dictionary As Dictionary(Of String, RootObject)

    Private _json As String

    Public Sub Main()

        _json = "{""1000"":{""id"":1000,""description"":""my description 1000""},""1001"":{""id"":1001,""description"":""my description 1001""}}"

        _dictionary = JsonConvert.DeserializeObject(Of Dictionary(Of String, RootObject))(_json)

​

        Console.Write("Enter an id: ")

        Dim key = Console.ReadLine()

        Console.WriteLine()

        If (_dictionary.ContainsKey(key)) Then

            Dim search = _dictionary(key)

            Console.WriteLine("Id: {0}, Description: {1}", search.Id, search.Description)

        Else

            Console.WriteLine("Id not found.")

        End If

    End Sub

​

End Module

​

Public Class RootObject

​

    <JsonProperty("id")>

    Public Property Id As Integer

​

    <JsonProperty("description")>

    Public Property Description As String

​

End Class

​