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