Как я могу создать членов класса динамически?

Question

По сути, я хочу использовать массив varNames, содержащий имена членов класса, поэтому во время инициализации я бы перебрал их и сделал их по шаблону.

Код Class1модуль класса:

 Private Sub Class_Initialize()

    'initialize varNames array
    Dim varNames
    varNames = Array("Name", "Id", "Address")

    'iterate through the names, trying to create members of the Class1
    For Each member In varNames
        Debug.Print member
        'doesnt work for some reason
        Public member As String
    Next member
End Sub

Код модуля:

Private Sub Document_New()
    Dim client As New Class1
End Sub

Код компилируется без ошибок, но отладчик показывает, что объект client пуст. Видимо Sub_initalize никогда не срабатывал? И можно ли использовать этот пример для использования динамического именования?