Public Sub Test()
    Dim parts As New Collection
    Dim part As New clsTest            
    With part
        .name = "test"
    End With    
    parts.Add (part)
End Sub

Option Explicit
 
Private pname As String
 
Public Sub Class_Initialize()
End Sub
 
Public Property Get name() As Variant
    name = pname
End Property
 
Public Property Let name(ByVal vNewValue As Variant)
    pname = vNewValue
End Property