VB: intercettare l'errore

[darkblOOd]

ciao

Private Sub TuaSub()
On Error GoTo Errore 
...
...
...
Exit Sub 

Errore: 
if Err.Number=-2147217833
MsgBox "Qello che vuoi"
...
...
end if 
End Sub