Return to Question

Debug.Print Obj_Field1(obj)

Obj_Field1(obj) = 2

' ...

Obj_Field3(obj) = New Collection

Debug.Print Obj_Field1(obj)

Obj_Field1(obj) = 2

' ...

Set Obj_Field3(obj) = New Collection

Private Enum ObjField
    Field1
    Field2
    Field3
    ' ...
End Enum

' ...

Private Function Obj_Key(ByVal fld As ObjField) As String
    Select Case fld
        Case Field1: Obj_Key = "Field1"
        Case Field2: Obj_Key = "Field2"
        Case Field3: Obj_Key = "Field3"
        ' ...
    End Select
End Function

Private Enum ObjField
    Field1
    Field2
    Field3
    ' ...
End Enum

' ...

Private Function Obj_Key(ByVal fld As ObjField) As String
    Select Case fld
        Case ObjField.Field1: Obj_Key = "Field1"
        Case ObjField.Field2: Obj_Key = "Field2"
        Case ObjField.Field3: Obj_Key = "Field3"
        ' ...
    End Select
End Function

I am writing a VBA module which requires the functionality of a custom object. This object will support "regular" functions within the module.

I am writing a VBA module which requires the functionality of a custom object. This object will support "regular" functions (UDFs) within the module.