Pass argument to class initialize

[tiredofit]

This code is taken from here:

https://newbedev.com/pass-arguments-to-constructor-in-vba

I can't get it to work.

My understanding is as follows:

This goes into a standard module:

Sub Test

    Dim a As Employee
    Set a = Factory.CreateEmployee("Excel", 100)
   
End Sub

This goes in a class, Employee:

Private m_name As String
    Private m_age As Integer
   
Public Sub InitiateProperties(name As String, age As Integer)

    m_name = name
    m_age = age

End Sub

This goes into another class, Factory:

Public Function CreateEmployee(name As String, age As Integer) As Employee

    Set CreateEmployee = New Employee
    CreateEmployee.InitiateProperties name:=name, age:=age

End Function

When I compile, I get an error message:

Variable not found

and it points to this line:

Set a = Factory.CreateEmployee("Excel", 10)

What is wrong?

Thanks

 

[StephenCrump]

This goes into another class, Factory:

Factory is a code module, not a class.

 

[tiredofit]

Factory is a code module, not a class.

Thanks