Imports System.Collections.Generic
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)
<JsonProperty("Companies")>
Public Property Companies As List(Of Company)
<JsonProperty("response_metadata")>
Public Property ResponseMetadata As Response_Metadata
Public Class Response_Metadata
<JsonProperty("next_cursor")>
Public Property NextCursor As Integer
<JsonProperty("next_link")>
Public Property NextLink As String
<JsonProperty("companyId")>
Public Property CompanyId As String
<JsonProperty("companyName")>
Public Property CompanyName As String