Lorsque j'utilise la méthode Err.Raise dans un module de classe, VB5 génère la boîte de message au lieu de retourné à mon instruction On Error Goto Pourquoi????

Voici mon module appelant qui se trouve dans un formualaire

Private Sub SaveScreen()

On Error GoTo Err_SaveScreen

Obj.NoCenCout = txtNoCenCout.Text

Exit_SaveScreen:
Exit Sub
Err_SaveScreen:
MsgBox Err.Number + vbObjectError
Resume Exit_SaveScreen

End Sub

Voici la propriété de ma classe.

Public Property Let NoCenCout(ByVal plNewCenCout As String)

If IsNumeric(plNewCenCout) Then
clNoCenCout = Val(plNewCenCout)
Else
Err.Raise 2001 + vbObjectError, , "Numéro de centre de coût"
End If

End Property

Pourquoi la gestion d'erreur ne fait pas par le module appelant SaveScreen().