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.



For Each entry as DictionaryEntry in jsonPunches

Dim punch as New Punch

Dim punchDict As New Dictionary
punchDict= entry.Value



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