Quello che intendo io è come intercettare l'eccezione e visualizzare il giusto messaggio di errore.

Tipo:

codice:
if Err.Number = Num_eccezione then
msgbox("Si è verificato il tal errore",,"Errore")
end if