Json parse problem och hjälp (Newtonsoft)

[tonlof]

Hej, jag försöker läsa ut hashrate under workers från en json sträng.

Dom första värdeposterna är inga problem att läsa ut men när jag ska ner på multi array nivå vet jag inte hur jag ska gå vidare.

       Dim json As String = str_grab

        Dim ser As JObject = JObject.Parse(json_content_string)

        Dim data As List(Of JToken) = ser.Children().ToList


        Dim output As String = ""

        Dim confirmed_rewards As String = ""

        Dim estimate As String = ""

        Dim total_hashrate As String = ""

        Dim payout_history As String = ""

        Dim round_shares As String = ""

        Dim workers As String = ""

        For Each item As JProperty In data

            item.CreateReader()

            Select Case item.Name

                Case "confirmed_rewards"

                    confirmed_rewards = Val(item.Value)

                Case "round_estimate"

                    estimate = Val(item.Value)

                Case "total_hashrate"

                    total_hashrate = Val(item.Value)

                Case "payout_history"

                    payout_history = Val(item.Value)

                Case "round_shares"

                    round_shares = Val(item.Value)

                Case "workers"

                '    Debug.Print(item.Value.ToString)

                 '   workers = item.Value.ToString

            End Select


            Next

{

	"username": "My_Username",

	"confirmed_rewards": 0.4864629,

	"round_estimate": "0.0067822",

	"total_hashrate": "1066",

	"payout_history": "0",

	"round_shares": "542",

	"workers": {

		"My_Username.1": {

			"alive": "1",

			"hashrate": "855",

			"last_share_timestamp": "1385372670",

			"username": "My_Username.1"

		},

		"My_Username.1": {

			"alive": "1",

			"hashrate": "211",

			"last_share_timestamp": "1385372701",

			"username": "My_Username.2"

		}

	}

}