Imports System

Imports System.Collections.Generic

Imports Newtonsoft.Json

​

Public Class Program

​

    Public Shared Sub Main()

        Dim j1 As String = "{ ""JOE"":""0.90000000"",""JOE"":""3.30000000"",""MONROE"":""1.20000000""}"

        Dim dict = JsonConvert.DeserializeObject(Of Dictionary(Of String, String))(j1)

        For Each kvp In dict

            Console.WriteLine(kvp.Key & " - " + kvp.Value)

        Next

    End Sub

End Class

​