Imports System

Public Module Module1

    Public Sub Main()

        Dim json2 = Newtonsoft.Json.Linq.JArray.Parse("[{""currency_code"":""1ST"",""cash"":""0"",""reserved"":""0""},{""currency_code"":""8BT"",""cash"":""0"",""reserved"":""0""}]")

​

        For Each jObject As Newtonsoft.Json.Linq.JObject In json2

            Console.WriteLine("Currency Code: " & jObject("currency_code").ToString())

            Console.WriteLine("Cash: " & jObject("cash").ToString())

            Console.WriteLine("Reserved: " & jObject("reserved").ToString())

            Console.WriteLine()

        Next

    End Sub

End Module