For Each .Graph.InEdges (gb.data)

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