从嵌套JSON数组检索数据

我正在尝试从外部源读取JSON字符串。这是绳子-

{
  "jsonrpc": "2.0",
  "id": 1,
  "result": {
    "success": true,
    "data": {
      "params": {
        "timing": {
          "timing_matched_pairs": {
            "11": {
              "store_id": "12345",
              "date": "2015-03-15",
              "menuboard_time": "2015-03-15 16:54:08",
              "menuboard_duration": 10,
              "pickup_time": "2015-03-15 16:54:27",
              "pickup_duration": 10,
              "total_duration": 29
            }
          }
        }
      }
    },
    "error_num": 0,
    "error_message": ""
  }
}

我能够为一个错误编码并检索响应字符串，这是“数据”部分设置为NULL的代码。我的具体问题似乎与定时匹配对数组有关。每一行都应该是一个ID和一个包含细节的对象。（对“11”包含故事12345、日期等）

我使用这个测试模拟从站点获取JSON-

Dim testJson As String = "{'jsonrpc':'2.0','id':1,'result':{'success':true,'data':{'params':{'timing':{'timing_matched_pairs':{'11':{'store_id':'12345','date':'2015-03-15','menuboard_time':'2015-03-1516:54:08','menuboard_duration':10,'pickup_time':'2015-03-15 16:54:27','pickup_duration':10,'total_duration':29}}}}},'error_num':0,'error_message':''}}"
Dim myObj As New dtd_Msg
myObj = JsonConvert.DeserializeObject(Of dtd_Msg)(testJson)

我可以使用以下内容查看一些数据-

appMsgBox.AppendText("JsonRPC: " & myObj.jsonrpc & vbCrLf)
appMsgBox.AppendText("ID:      " & myObj.id & vbCrLf)
appMsgBox.AppendText("Result.success:   " & myObj.result.success & vbCrLf)

问题：如何从“计时匹配对”正向访问数据

下面是我的JSON数据类

Public Class dtd_Msg
    Public Property jsonrpc As String
    Public Property id As Integer
    Public Property result As dtd_Result

End Class

Public Class dtd_Result
    Public Property success As Boolean
    'Public Property data As Object
    Public Property data As dtd_Data
    Public Property error_num As Integer
    Public Property error_message As String
End Class

Public Class dtd_Data
    Public Property params As dtd_Timing
End Class

Public Class dtd_Timing
    Public Property timing_matched_pairs As dtd_MatchedPairs
End Class

Public Class dtd_MatchedPairs
    Public Property uid As Integer
    Public Property readings As List(Of dtd_Readings)
End Class

Public Class dtd_Readings
    Public Property store_id As String
    Public Property evtdate As String
    Public Property menuboard_time As String
    Public Property menuboard_duration As Integer
    Public Property pickup_time As String
    Public Property pickup_duration As Integer
    Public Property total_duration As Integer

End Class

---

使用字典为时间匹配对创建类

公共类dtd\U定时
公共属性定时\u匹配\u对作为字典（字符串、对象）
最终类

闻起来像VB.Net，而不是VB6。