For Each .Graph.Vertices (gb.data)

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