For Each .Graph.Adjacent (gb.data)
Dim
hGraph
As
Graph
Dim
aString
As
String
For Each
aString
In
hGraph.Adjacent
...
Next