Dim json As String = ClipBoard.GetText
Dim jo As JObject = JObject.Parse(json)
output.show(jo.tostring)
Dim ja As JArray = jo("item-1527207237163")("value")
For i As Integer = 0 To ja.Count - 1
Dim cjo As jobject = jobject.parse(ja(i).tostring)
For Each ccjo As object In ja(i)
msgbox(ja(i)(ccjo.name)("title").tostring)
msgbox(ja(i)(ccjo.name)("value").tostring)
Next
Next