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 names As New List(Of String)()

        For Each area As JObject In jResults(0)("areas")

            Dim name As String = area("area")

            names.Add(name)

        Next

​

        Console.WriteLine(String.Join(Environment.NewLine, names))

​

    End Sub

End Module