Get a value from JSON data - json

Question

I have this Json data need to get the values on vb.net
{
"type": "push",
"targets": ["stream"],
"push": {
"type": "mirror",
"source_device_iden": "ujzp6Xr9A4asjyjskXPzu8",
"source_user_iden": "ujzp6Xr9A4a",
"client_version": 354,
"dismissible": true,
"icon": "ok",
"title": "test",
"body": "Hi",
"application_name": "WhatsApp",
"package_name": "com.whatsapp",
"notification_id": "1",
"notification_tag": "y9x5Q2YAI\/pqPhZwbaN6TpoW4eJhe0kAe0HfmWOQyWA=\n",
"conversation_iden": "{\"package_name\":\"com.whatsapp\",\"tag\":\"y9x5Q2YAI\\\/pqPhZwbaN6TpoW4eJhe0kAe0HfmWOQyWA=\\n\",\"id\":1}"
}
}
I tried this code it is return error
Dim json As String = TextBox1.Text
Dim ser As JObject = JObject.Parse(json)
Dim data As List(Of JToken) = ser.Children().ToList
For Each item As JProperty In data
item.CreateReader()
Select Case item.Name
Case "push"
For Each msg As JObject In item.Value
Dim tyep As String = msg("type")
Dim source As String = msg("source_device_iden")
Next
End Select
Next
System.InvalidCastException: 'Unable to cast object of type
'Newtonsoft.Json.Linq.JProperty' to type
'Newtonsoft.Json.Linq.JObject'.'

Answer 1

Dim json As String = TextBox1.Text
Dim ser As JObject = JObject.Parse(json)
Dim data As List(Of JToken) = ser.Children().ToList
For Each item As JProperty In data
item.CreateReader()
Select Case item.Name
Case "push"
For Each msg As JObject In item
Dim tyep As String = msg("type")
Dim source As String = msg("source_device_iden")
Next
End Select
Next