For Each .Graph.OutEdges (gb.data)

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