DictionaryEntry problem

What am I doing wrong in the following code. When trying to process this JSON the punch entries end up being a repeat of the first entry. Meaning punch.emp_id=“0000” and punch.rec_id=“D4” for all 4 interations of the For Next loop.

{“Result”:{“1”:{“rec_id”:“D4”,“emp_id”:“0000”},“2”:{“rec_id”:“D5”,“emp_id”:“0001”},“3”:{“rec_id”:“D6”,“emp_id”:“0002”},“4”:{“rec_id”:“D7”,“emp_id”:“0003”},“5”:{“rec_id”:“D8”,“emp_id”:“0004”}}}

[code]jsonPunches=json.Value(“Result”)

For Each entry as DictionaryEntry in jsonPunches

Dim punch as New Punch

Dim punchDict As New Dictionary
punchDict= entry.Value

punch.emp_id=punchDict.Value(“emp_id”)
punch.rec_id=punchDict.Value(“rec_id”)

next
[/code]

Turns out this was working correctly. There were times the JSON I was receiving had duplicates of the same entries.