[test009]

Благодарю всех, кто откликнулся.
Я сделал так:

Код:

Set oDlg = CreateObject("WIA.CommonDialog")
Set Device = CreateObject("WIA.DeviceManager")

for each devInfo in Device.DeviceInfos
	devName = devInfo.Properties("Name").Value
	if InStr(devName, "EPSON Perfection") > 0 then
		Set dev = devInfo.Connect()
		
		'MsgBox devName
		'MsgBox "found!"
		oDlg.ShowAcquisitionWizard dev
	end if

next