Imports System

Imports Newtonsoft.Json

Imports Newtonsoft.Json.Linq

​

    ' Stackoverflow Question: http:'stackoverflow.com/q/27137329/325521

    ' This (my) Answer to the Question: http:'stackoverflow.com/a/27140706/325521

    ' Author: Shiva Manjunath

    ' Author's Stackoverflow Profile: http://stackoverflow.com/users/325521/shiva

Public Module Module1

    Public Sub Main()

        Dim rawresp As String

        rawresp = "[{""Var1"":""data1"",""Var2"":""data2"",""Var3"":""data3"",""Var4"":""data4""}]"

​

        Console.WriteLine("Raw JSON : " + rawresp)

        Console.WriteLine()

        Console.WriteLine("---BEGIN JSON Deserialization")

        Dim varses() = Newtonsoft.Json.JsonConvert.DeserializeObject(Of Vars())(rawresp)

​

        ' Loop over each Var in the Array of Vars.      

        For Each oneVar As Vars In varses

            ' Avoid Nothing vars.

            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)

            End If

        Next

​

        Console.WriteLine("---END JSON Deserialization")

​

    End Sub

End Module

​

Public Class Vars

   Public Property Var1 As String

   Public Property Var2 As String

   Public Property Var3 As String

   Public Property Var4 As String

End Class