For Each .List.Backwards (gb.data)

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

Enumerate the original List backwards.