excel - Error handling in class returns runtime error 440 "automation error"

Question

I have a class ClsSubject with the let INN property. The property checks wheither the incoming argument is a numeric string and has length of 10 characters. Otherwise it throws an error.

Property Let INN(val As String)
    If IsNumeric(val) And Len(val) = 10 Then
        PINN = val
    Else
        Dim errorMessage As String
        errorMessage = val & " is an Invalid value"
        Err.Raise vbObjectError + 513, "ClsSubject", errorMessage
    End If
End Property

When I try to simulate the error I only get

Runtime error '440': Automation Error.

What am I doing wrong?

Answer 1

Using the code from the OP, the following works. In a module:

Sub TestMe()

    Dim x As New clsSubject
    x.INN = 3276132761#
    Debug.Print x.PINN

End Sub

And this in the class:

Public PINN As String

Property Let INN(val As String)
    If IsNumeric(val) And Len(val) = 10 Then
        PINN = val
    Else
        Dim errorMessage As String
        errorMessage = val & " is an Invalid value"

        Err.Raise vbObjectError + 513, "ClsSubject", errorMessage
    End If
End Property

In order to make the code running, call TestMe().

In the general case, the fields of the class should be private, and should be accessed through public properties. E.g. private PINN as String, but this is only for illustration.