Class variable default value

Hi

How am I able to assign a default value to a variable in a class module in VBA? For example in VB.NET I can use this declaration:

Private i as integer = 5

to set the variable's default value to 5. I want each new instance of the class to have the property Class1.i = 5

thank you!

If you have

Private i as Integer;

In your class (not in a function), you can use the 'Class_Initialize' function to set the variable.  You would do this like so:

Private Sub Class_Initialize()
    i = 5
End Sub

When I saw this subject, I thought that you wanted to know how a VBA clas can have a default property, as VB does. I see it isn't, but I will continue that thought anyway.

Personally, I don't agree with default values, but if you want to do it, here is how:

To make a particular property of a class the default property, e.g. to make the Value property the default, do this

Export the class module to a text file, open it in NotePad (or some other text editor), and add an attribute to the procedure. e.g.,

Public Property Get Value() As Long
Attribute Value.VB_UserMemId = 0
    Value = m_Value
End Property

Import the class file back into the project.

Private Sub Class_Initialize()
    i = 5
End Sub

This was what I was looking for, thank you!