… = Scanners[…] (gb.scanner)

Dim hScanners As Scanners
Dim hScanner As Scanner
hScanner = hScanners [ sDeviceName As String ]