VB.NET Json Parse

Я пытаюсь обработать ввод JSON ниже. Код (внизу) бросает

Error reading JObject from JsonReader. 
Current JsonReader item is not an object: StartArray. 
Path '', line 1, position 1.

Вход:

[
{
"data": [
    {
    "photos": {
        "data": [
            {
                "id": "1",
                "name": "test Post",
                "images": [
                {
                    "height": 1024,
                    "source": "https://127.0.0.1:8080/image1.png",
                    "width": 1204
                },
                {
                    "height": 1204,
                    "source": "https://127.0.0.1:8080/image2.png",
                    "width": 1204
                }
                ],
            }
        ]
        }
    }
}

Код:

Dim ser As JObject = JObject.Parse(result.ToString)
Dim data As List(Of JToken) = ser.Children().ToList

Dim jsonString As String = Nothing
Dim index As Integer = 0
For Each item As JProperty In data
    item.CreateReader()
    Select Case item.Name
        Case "data"
            jsonString = item.Value.ToString
    End Select
Next

ser = JObject.Parse(jsonString)
data = ser.Children().ToList
For Each item As JProperty In data
    item.CreateReader()
    Select Case item.Name
        Case "photos"
            jsonString = item.Value.ToString
    End Select
Next

ser = JObject.Parse(jsonString)
data = ser.Children().ToList
For Each item As JProperty In data
    item.CreateReader()
    Select Case item.Name
        Case "data"
            For Each comment As JObject In item.Values
                Dim _id As String = comment("id")
                Dim _title As String = comment("title")
                Dim _name As String = comment("name")
                Dim _source As String = comment("source")
                Dim source As List(Of JToken) = item.Value.ToList
                For Each images As JProperty In source
                    item.CreateReader()
                    Select Case item.Name
                        Case "images"
                            Dim _tempsource As String = source("source")
                            _source += _tempsource & vbCrLf
                    End Select
                Next
                Dim _created_time As String = comment("created_time")

                Dim itm As New ListViewItem(_id, 1)
                itm.SubItems.Add(_title)
                itm.SubItems.Add(_name)
                itm.SubItems.Add(_source)
                itm.SubItems.Add(_created_time)

                lvItems.Items.AddRange(New ListViewItem() {itm})
                index += 1
            Next
    End Select
Next

Я получаю доступ к этому пространству имен с помощью

Imports Newtonsoft.Json 
Imports Newtonsoft.Json.Linq

Что я делаю не так?