yes, sometihing like this:

Sub Test()
On error go to Proc_Err

'run some code here

Proc_Exit:
   exit sub
Proc_Err:
   select case err.number
       case 5
           msgbox "Custom error message"
       case else
           msgbox err.descrition
   end select
   resume Proc_Exit
end sub

so if you get err.number=5 - then user will get a messagebox with "Custome
error message"