For Each _CSerie (gb.chart)

Dim hCSerie As _CSerie
Dim aFloat As Float
For Each aFloat In hCSerie
  ...
Next