Imports System

Imports System.Collections.Generic

Imports System.Linq

Imports Newtonsoft.Json

Imports Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Dim response as String = "[['NAME','S0101_C01_008EA','S0101_C01_031M','state','county']," _

        + "['Alcona County, Michigan', null, '1.1', '26', '001']," _

        + "['Alger County, Michigan',null,'1.7','26','003']," _

        + "['Allegan County, Michigan',null,'0.2','26','005']," _

        + "['Alpena County, Michigan',null,'0.9','26','007']," _

        + "['Antrim County, Michigan',null,'0.9','26','009']," _

        + "['Arenac County, Michigan',null,'0.8','26','011']]"

        Dim PopulationByState As List(Of List(Of Object)) = _

            JsonConvert.DeserializeObject(Of List(Of List(Of Object)))(response)

        Dim state As List(Of Object)

        For Each state In PopulationByState.Skip(1) ' .Skip(1) to skip the header

            Console.WriteLine(String.Join(vbTab, state))

        Next

    End Sub

End Module