Looping

For Each oItem in oDict.Keys 

Next oItem 

Dim icount As Integer 
For icount = 0 To oDict.Count - 1 

Next icount