For Each .Graph.Edges (gb.data)

Dim hGraph As Graph
Dim hStringArray As String[]
For Each hStringArray In hGraph.Edges
  ...
Next