vb.net с использованием Newtonsoft.Json:
dim jsonstring = "..."
dim foo As JObject = JObject.Parse(jsonstring)
dim value1 As JToken = foo("key")
e.g.:
dim jsonstring = "{"MESSAGE":{"SIZE":"123","TYP":"Text"}}"
dim foo = JObject.Parse(jsonstring)
dim messagesize As String = foo("MESSAGE")("SIZE").ToString()
'now in messagesize is stored 123 as String
Так что вам не нужна фиксированная структура, но вы должны знать, что там можно найти.
Но если выдаже не знаю, что внутри, чем вы можете перечислить через этот JObject с элементами навигации, например .first (), .next () Например: вы могли бы реализовать классический поиск в глубину и экранирование JObject
(для преобразования vb.net в c #: http://converter.telerik.com/)