private type object
      position as position
end type

private type position
      x as integer
      y as integer
end type

'Class clsPosition
Option Explicit

Private m_x As Integer
Private m_y As Integer

Private Sub Class_Initialize()
    m_x = 0
    m_y = 0
End Sub

Public Property Get X() As Integer
    X = m_x
End Property

Public Property Let X(value As Integer)
    m_x = value
End Property

Public Property Get Y() As Integer
    Y = m_y
End Property

Public Property Let Y(value As Integer)
    m_y = value
End Property

'Class MyClass
Option Explicit

Private m_pt As clsPosition

Private Sub Class_Initialize()
    Set m_pt = New clsPosition
    
    m_pt.X = 0
    m_pt.Y = 0
End Sub

Public Property Get Position() As clsPosition
    Set Position = m_pt
End Property

Public Property Let Position(value As clsPosition)
    Set m_pt = value
End Property

Private Sub Class_Terminate()
    Set m_pt = Nothing
End Sub

'Main form
Option Explicit

Private mc As MyClass

Private Sub Form_Load()
    Set mc = New MyClass
    
    mc.Position.X = 10
    mc.Position.Y = 25
End Sub

Private Sub Form_DblClick()
    MsgBox "X = " & mc.Position.X & vbNewLine & "Y = " & mc.Position.Y
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set mc = Nothing
End Sub

Property Get PropName(Index As Type)
'Index is the one they asked for
End Property
Property Let PropName(Index As Type, NewValue As Type)
'Index is the one they are writing to, NewValue is what they're writing
End Property

Private m_Stash(6) As String

Public Property Get Stash(Index As Integer) As String

    If Index <= 6 And Index >= 0 Then
        Stash(Index) = m_Stash(Index)
    Else
        MsgBox "Index between 0 and 6",,"The Stash Class"
        end
    End If
    
End Property

Public Property Let StashIndex As Integer, ByVal Value As String)
    If Index <= 6 And Index >= 0 Then
        m_Stash(Index) = Value
    Else
        MsgBox "Index between 0 and 6",,"The Stash Class"
         end
    End If
End Property