… = .Graph.Adjacent[…] (gb.data)

Dim hGraph As Graph
Dim hGraphAdjacent As .Graph.Adjacent
hGraphAdjacent = hGraph.Adjacent [ Vertex As String ]