Const ERR_ESPERADO = 0
Sub Rutina()
On Local Error Goto Controlar
' Codigo
Exit Sub
Controlar:
If Err.Number = ERR_ESPERADO then
MsgBox "Mensaje personal"
Resume Next
End If
End Sub