Imports Newtonsoft.Json.Linq
Console.WriteLine("Checking...")
Dim jString = "{ ""car"": { ""make"":""ford"", ""color"": { ""interior"":""grey"", ""exterior"":""red"" } } }"
Dim myJObject = JObject.Parse(jString)
Console.WriteLine("Color is missing: " & IsNullOrEmpty(myJObject("car")("color")))
Console.WriteLine("VIN is missing: " & IsNullOrEmpty(myJObject("car")("VIN")))
Function IsNullOrEmpty(ByVal token As JToken) As Boolean
Return (token Is Nothing) OrElse (token.Type = JTokenType.Array AndAlso Not token.HasValues) OrElse (token.Type = JTokenType.Object AndAlso Not token.HasValues) OrElse (token.Type = JTokenType.String AndAlso token.ToString() = String.Empty) OrElse (token.Type = JTokenType.Null)