Imports Newtonsoft.Json.Linq
rawresp = "[{""Var1"":""data1"",""Var2"":""data2"",""Var3"":""data3"",""Var4"":""data4""}]"
Console.WriteLine("Raw JSON : " + rawresp)
Console.WriteLine("---BEGIN JSON Deserialization")
Dim varses() = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Vars())(rawresp)
For Each oneVar As Vars In varses
If oneVar IsNot Nothing Then
Console.WriteLine(" Var1 = " + oneVar.Var1)
Console.WriteLine(" Var2 = " + oneVar.Var2)
Console.WriteLine(" Var3 = " + oneVar.Var3)
Console.WriteLine(" Var4 = " + oneVar.Var4)
Console.WriteLine("---END JSON Deserialization")
Public Property Var1 As String
Public Property Var2 As String
Public Property Var3 As String
Public Property Var4 As String