For Each .Graph.Adjacent (gb.data)

Dim hGraph As Graph
Dim aString As String
For Each aString In hGraph.Adjacent
  ...
Next