For Each TriePrefix (gb.data)

Dim hTriePrefix As TriePrefix
Dim aVariant As Variant
For Each aVariant In hTriePrefix
...
Next

Iterate through all keys in the prefix range, in lexicographic order.