Imports System

Imports System.Collections.Generic

Imports Newtonsoft.Json

Public Module Module1

    Public Sub Main()

        Dim response = "{""AMD"":{""assetType"":""EQUITY"",""symbol"":""AMD"",""description"":""Advanced Micro Devices, Inc. - Common Stock"",""bidPrice"":92.11},""MSFT"":{""assetType"":""EQUITY"",""symbol"":""MSFT"",""description"":""Microsoft Corporation - Common Stock"",""bidPrice"":243.1}}"

        Dim stocks = JsonConvert.DeserializeObject(Of Dictionary(Of String, Stock))(response)

        For Each kvp In stocks

            Console.WriteLine("{0}: {1}", kvp.Key, kvp.Value.bidPrice)

        Next

    End Sub

End Module

​

Public Class Stock

  Public Property assetType As String

  Public Property symbol As String

  Public Property description As String

  Public Property bidPrice As Double

End Class