For Each _Settings_Keys (gb.settings)

Dim hSettings As Settings
Dim aString As String
For Each aString In hSettings.Keys
...
Next

Enumerate the keys of the current parent slot, or the settings files top-level slots.