Option Explicit

Enum enmIntParamName
    modeRead =  0 
    modeEdit
    modeAdd
    modeFind
End Enum

Private Const enmIntParamNameMIN As Integer = modeRead
Private Const enmIntParamNameMAX As Integer = modeFind

 'CINTPARAM errors with description BEGIN --------------------------
 
Private Const CINTPARAM_ERR_SOURCE       As String = "cIntParam Object"
Private Const CINTPARAM_ERR_ERRNUMBASE   As Long = vbObjectError +  1000 

 ' Invalid Input Value:
 
Private Const CINTPARAM_ERR_INVALID_VALUE_IN _
    As Long = CINTPARAM_ERR_ERRNUMBASE +  1 
Private Const CINTPARAM_ERR_INVALID_VALUE_IN_DESC _
    As String = "Значение должно быть от " & enmIntParamNameMIN & _
        " до " & enmIntParamNameMAX & "."
 'CINTPARAM errors with description END ----------------------------
 

Public Event Changed(oldValue As enmIntParamName)
Private m_enmValue As enmIntParamName

 'Tools->Procedure Attributes->Item (Value)
 
 'Advanced->Procedure ID (Default) OK
 
Property Get Value() As enmIntParamName
    Value = m_enmValue
End Property

Property Let Value(ParamName As enmIntParamName)
    Dim old_Value As enmIntParamName
    
    If (ParamName < enmIntParamNameMIN) Or _
        (ParamName > enmIntParamNameMAX) Then
         'Можно было бы использовать стандартный номер VB Err:
 
         '380 - Invalid Property Value
 

        Err.Raise CINTPARAM_ERR_INVALID_VALUE_IN, CINTPARAM_ERR_SOURCE, _
            CINTPARAM_ERR_INVALID_VALUE_IN_DESC
    Else
        old_Value = m_enmValue
        m_enmValue = ParamName
        RaiseEvent Changed(old_Value)
    End If
End Property