For Each Scanner (gb.scanner)

Dim hScanner As Scanner
Dim aString As String
For Each aString In hScanner
  ...
Next