codice:
on error resume next
........
........
........
if err<>0 then
  select case err.number
    case ......
    case ......
  end select
end if
Non so bene i numeri, ma non è difficile trovarli...