For Each List (gb.data)

Dim hList As List
Dim aVariant As Variant
For Each aVariant In hList
...
Next

Enumerate all elements in the List moving forwards.