For Each TriePrefix (gb.data)

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

Scorre tutte le chiavi dell'intervallo del prefisso, in ordine lessicografico.