Доступ к полям класса пользовательских типов

Private Sub vAdd(vOut As Vector, vIn1 As Vector, vIn2 As Vector)
  vOut.x = vIn1.x + vIn2.x
  vOut.y = vIn1.y + vIn2.y
End Sub

vAdd V0, V1, V2

vAdd T.V, V1, V2

vAdd V0, V1, V2
T.V = V0

vAdd T.V, V1, V2

Option Explicit
 
Private Const FADF_AUTO As Long = 1
 
Private Type SAFEARRAYBOUND
    cElements   As Long
    lLBound     As Long
End Type
 
Private Type SAFEARRAY1D
    cDims       As Integer
    fFeatures   As Integer
    cbElements  As Long
    cLocks      As Long
    pvData      As Long
    Bounds      As SAFEARRAYBOUND
End Type
 
Private Declare Sub MoveArray Lib "msvbvm60" _
                    Alias "__vbaAryMove" ( _
                    ByVal pDest As Long, _
                    ByRef Source As Any)
Private Declare Function ArrPtr Lib "msvbvm60" _
                         Alias "VarPtr" ( _
                         ByRef pSA() As Any) As Long
                         
Private m_tData     As TPlayer
Private m_tSAMap    As SAFEARRAY1D
 
Public Property Get X() As Long
    X = m_tData.lX
End Property
Public Property Let X(ByVal lValue As Long)
    m_tData.lX = lValue
End Property
 
Public Property Get Y() As Long
    Y = m_tData.lY
End Property
Public Property Let Y(ByVal lValue As Long)
    m_tData.lY = lValue
End Property
 
Friend Function InternalData() As TPlayer()
    MoveArray ArrPtr(InternalData), VarPtr(m_tSAMap)
End Function
 
Private Sub Class_Initialize()
 
    m_tSAMap.Bounds.cElements = 1
    m_tSAMap.cbElements = LenB(m_tData)
    m_tSAMap.cDims = 1
    m_tSAMap.fFeatures = FADF_AUTO
    m_tSAMap.pvData = VarPtr(m_tData)
    
End Sub

Option Explicit
 
Private Sub Form_Load()
    Dim c   As CPlayer
    Dim t() As TPlayer
    
    Set c = New CPlayer
 
    c.X = 1
    c.Y = 2
 
    t = c.InternalData      ' // Можешь этот массив хранить - он всегда будет ссылаться на актуальные данные
    
    Debug.Print t(0).lX
    Debug.Print t(0).lY
    
    t(0).lX = 3
    t(0).lY = 4
    
    Debug.Print c.X
    Debug.Print c.Y
    
    c.X = 5
    c.Y = 6
    
    Erase t     '   // Если класс уничтожается раньше массива, иначе не нужно
    
End Sub

Public Type TPlayer
    lX      As Long
    lY      As Long
    ' // ....
End Type

Sub Main()
    Dim cP1 As IPlayer
    Dim cP2 As IPlayer
    
    Set cP1 = CreatePlayer(1, 2)
    Set cP2 = CreatePlayer(3, 4)
    
    Debug.Print cP1.X, cP1.Y
    Debug.Print cP2.X, cP2.Y
    
    cP1.X = 10: cP1.Y = 20
    cP2.X = 30: cP2.Y = 40
    
    Debug.Print cP1.X, cP1.Y
    Debug.Print cP2.X, cP2.Y
    
    
End Sub

Private Sub vAddPtr(ByVal vOut As Long, ByVal vIn1 As Long, ByVal vIn2 As Long)
    'патч сбрасыается при первом выполнении кода в ide (после редактирования и ide-шной перекомпиляции)
    'но его можно можно "реабилитировать" прямо в багвовом месте
    MakeRedirect AddressOf vAddPtr, AddressOf vAdd
    vAddPtr vOut, vIn1, vIn2
End Sub