' SPDX-FileCopyrightText: Chris Pressey, the original author of this work, has dedicated it to the public domain.
' For more information, please refer to <https://unlicense.org/>
' SPDX-License-Identifier: Unlicense

Option Explicit

Dim a

Private Sub Hello(x)
    msgbox "Welcome to " + x + "!"
End Sub

Class Foo
    private tape()

    Public Sub Class_Initialize()
        ReDim tape(100)
    End Sub

    Public Property Let Identity(x)
        tape(99) = x
    End Property

    Public Property Let Marf(num,x)
        tape(num) = x
    End Property

    Public Property Get Identity()
        Identity = tape(99)
    End Property

    Public Function GetId()
        GetId = tape(99)
    End Function
End Class

Set a = New Foo
a.Identity = "foobar"
Hello a.GetId
a.Marf(99) = "marf"
Hello a.Identity