如何处理VB.Net中不存在的已解析JSON属性/值？

Imports Newtonsoft.Json

' 定义一个类来表示JSON对象
Public Class MyJsonObject
    Public Property Property1 As String
    Public Property Property2 As Integer
End Class

' JSON字符串
Dim jsonString As String = "{""Property1"": ""Value1""}"

' 使用Json.NET库进行JSON解析
Dim jsonObject As MyJsonObject = JsonConvert.DeserializeObject(Of MyJsonObject)(jsonString)

' 检查属性是否存在并处理
If jsonObject.Property1 IsNot Nothing Then
    ' 属性存在，访问属性的值
    Console.WriteLine("Property1: " & jsonObject.Property1)
Else
    ' 属性不存在，执行适当的处理
    Console.WriteLine("Property1 does not exist")
End If

If jsonObject.Property2 IsNot Nothing Then
    ' 属性存在，访问属性的值
    Console.WriteLine("Property2: " & jsonObject.Property2.ToString())
Else
    ' 属性不存在，执行适当的处理
    Console.WriteLine("Property2 does not exist")
End If