For Each Test (gb.test)

Dim hTestAssertion As TestAssertion
For Each hTestAssertion In Test
  ...
Next