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