Imports System

Imports System.Collections.Generic

Imports System.Linq

Imports Newtonsoft.Json

Public Module Module1

    Public Sub Main()

        Dim literal = "{""companies"":[{""companyId"":""S86jhs89F"",""companyName"":""LoremIpsum""}],""response_metadata"":{""next_cursor"":659,""next_link"":""somedata""}}"

        Dim conversion = JsonConvert.DeserializeObject(Of Rootobject)(literal)

        Dim companyId = conversion.Companies.First().CompanyId

        Dim companyName = conversion.Companies.First().CompanyName

        Console.WriteLine("CompanyId: {0}, CompanyName: {1}", companyId, companyName)

    End Sub

End Module

​

Public Class Rootobject

    <JsonProperty("Companies")>

    Public Property Companies As List(Of Company)

​

    <JsonProperty("response_metadata")>

    Public Property ResponseMetadata As Response_Metadata

End Class

​

Public Class Response_Metadata

​

    <JsonProperty("next_cursor")>

    Public Property NextCursor As Integer

​

    <JsonProperty("next_link")>

    Public Property NextLink As String

End Class

​

Public Class Company

​

    <JsonProperty("companyId")>

    Public Property CompanyId As String

​

​

    <JsonProperty("companyName")>

    Public Property CompanyName As String

End Class

​