For Each Scanners (gb.scanner)

Dim hScanners As Scanners
Dim aString As String
For Each aString In hScanners
  ...
Next