Iterate a Dictionary

Following code iterates through each entry in a dictory

For Each keyPair As KeyValuePair(Of String, Int32) In aDepot.PostcodeCounters
    builder.Append("<tr><td>")
    builder.Append(keyPair.Key)
    builder.Append("</td><td align=""right"">")
    builder.Append(keyPair.Value)
    builder.Append("</td></tr>")
Next