Краткая справка по синтаксическому анализу json

---

Великие программисты, я с трудом пытаюсь разобрать строку Json, чтобы извлечь из нее какое-то значение. мне это действительно нужно, потому что я хочу включить его в свое приложение.
Пожалуйста, помогите мне.. из-за этого я просто новичок в синтаксическом анализе JSON..
Я хочу извлечь значение "address" , "txes_total", "confirmed".
Все, что я пробовал, не работало, даже копирование кода с youtube и через поиск google не давало никакого результата.
Вот код JSON:

{
  "data": {
    "address": "AnyRandomString", 
    "balance": {
      "confirmed": 960, 
      "unconfirmed": 960
    }, 
    "time_last_tx": 188.473, 
    "txes_total": 2
  }


}

Что я уже пробовал:

Dim str As String = reader.ReadToEnd()
Dim dict As Object = New JavaScriptSerializer().Deserialize(Of List(Of Object))(str)
Dim BITCONIadress As String = Nothing
Dim transactmBiTCOIN As Integer = Nothing
Dim balanceBBITCOIn As String = Nothing
For Each itm As Object In dict
    BITCONIadress = dict("address").ToString()
    transactmBiTCOIN = CInt(dict("txes_total"))
    balanceBBITCOIn = dict("confirmed").ToString()
Next
Dim kConvert = Convert.ToDecimal(balanceBBITCOIn) / 100000000
Threading.Thread.Sleep(3)
lll += 1
Me.Invoke(New MethodInvoker(Sub() Me.label7.Text = lll & "/" & countii))
Dim lstv As New ListViewItem
    lstv.Text = BITCONIadress
    lstv.SubItems.Add(ListBox2.Items.Item(lstcnt))
    lstv.SubItems.Add(transactmBiTCOIN)
    listView1.Items.Add(lstv)
    Me.Invoke(New MethodInvoker(Sub() Me.label8.Text = listView1.Items.Count))
    ListBox1.Items.RemoveAt(lstcnt)
    ListBox2.Items.RemoveAt(lstcnt)
    lstcnt += 1

---