Imports System.Collections.Generic
Dim jsn = "{ ""a"": ""1"", ""a1"": [""2"", ""3""] }"
Public Function parseJson(jsn)
Console.WriteLine("Running...")
Dim ds = JsonConvert.DeserializeObject(Of Dictionary(Of String, Object))(jsn)
For Each entry As KeyValuePair(Of String, Object) In ds
Dim str As String = entry.Key
Console.WriteLine(entry.Value)
Console.WriteLine(entry.Value)