Imports System

Imports System.Collections.Generic

Imports Newtonsoft.Json.Linq

Public Module Module1

    Public Sub Main()

        Dim rawJSON As String =

                "[" +

                "  {" +

                "    ""areas"": [" +

                "      {" +

                "        ""area"": ""New York""," +

                "        ""isDay"": true," +

                "        ""temp"": ""14""" +

                "      }," +

                "      {" +

                "        ""area"": ""Washington DC""," +

                "        ""isDay"": true," +

                "        ""temp"": ""30""" +

                "      }," +

                "      {" +

                "        ""area"": ""Los Angles""," +

                "        ""isDay"": false," +

                "        ""temp"": ""54""" +

                "      }," +

                "      {" +

                "        ""area"": ""San Diego""," +

                "        ""isDay"": true," +

                "        ""temp"": ""59""" +

                "      }" +

                "    ]," +

                "    ""status"": true," +

                "    ""code"": 200," +

                "    ""created_at"": ""2019/06/18 22:26:34.475""," +

                "    ""request_time"": ""2019/06/18 22:25:28.306""" +

                "  }" +

                "]"

​

​

        Dim jResults As JArray = JArray.Parse(rawJSON)

        Dim name As String = jResults(0)("areas")(0)("area")

        Console.WriteLine(name)

​

    End Sub

End Module