[code=vba]Function GetScan(strFileName As String) As Boolean

Dim intRes As Integer
Dim strFormat As String
Dim strFullPath As String
Dim dlg As WIA.CommonDialog
Dim mgr As WIA.DeviceManager
Dim prc As WIA.ImageProcess
Dim dev As WIA.Device
Dim img As WIA.ImageFile
Dim imgFmt As WIA.ImageFile
Dim itm As WIA.Item
Dim prp As WIA.Property
Dim flis As WIA.FilterInfos

Set dlg = New WIA.CommonDialog
Set mgr = New WIA.DeviceManage