Collection inside a class, issues retrieving data

Hi guy's, im having issues extracting data from a collection inside a class modual. I have put the class into a collection and i can extract information from there, but i wanna know what ive done wrong as i cant get a reference from the class itself.
I think the issue is coming from this class modual below, when call .item(1) i dont get .sscc, i have over looked something but im not sure what for the life of me

'''''''''''''' info modual 


dim mycls as cls, mycls2 as cls2
dim rng,rng2 as range

Set mycls = New cls
Set mycls2 = New cls2


Worksheets("dump_data").Activate

 Set rng2 = Range("R2", Range("R60000").End(xlUp))
   

With mycls
                         
For Each c In rng2
.Add c.Value, .count ''''''''''''''''works added all to collection
Next
.item(.count).sscc''''''''''''''''''''' fail.....intelligence doesn't provide .sscc or anything else
.remove(.count).sscc'''''''''''''''fails aswell in the same way
end with

mycls2.Add mycls, mycls2.count + 1

mycls2.item(mycls2.count).pSSCC.item(1) ''''''''''works though ???

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''class modual cls class

Private pId, pname as string
Public pSSCC As Collection
''''''''''''''''''''''''''''''''''''
'cls class
''''''''''''''''''''''''''''''''''''




''''''''''''''''''''''
' Id property
''''''''''''''''''''''
Public Property Get Id() As String
    Id = pId
End Property
Public Property Let Id(Value As String)
    pId = Value
End Property

''''''''''''''''''''''
' name  property
''''''''''''''''''''''
Public Property Get name() As String
    name = pname
End Property
Public Property Let name(Value As String)
    pname = Value
End Property


Private Sub Class_Initialize()
Set pSSCC = New Collection

End Sub

Public Sub Add(item As String, Key As String)
pSSCC.Add item, Key

End Sub

Public Property Get count() As Long
count = pSSCC.count

End Property

Public Property Get SSCC() As Collection
    SSCC = pSSCC

End Property

Public Property Let SSCC(Value As Collection)
    pSSCC = Value

End Property

Public Sub remove(indexorname As Variant)
pSSCC.remove indexorname

End Sub


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''bugs out here
Public Property Get item(indexorname As Variant) As Collection
Set item = pSSCC(indexorname)

End Property

Public Function NewEnum() As IUnknown
    Set NewEnum = pSSCC.[_NewEnum]
End Function

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''class modual cls2

Private Pcls2As Collection

Private Sub Class_Initialize()

Set Pcls2= New Collection

End Sub
Public Sub Add(item As cls, Key As String)
Pcls2.Add item, Key

End Sub
Public Property Get count() As Long
count = Pcls2.count

End Property
Public Sub remove(indexorname As Variant)
Pcls2.remove indexorname

End Sub

Public Property Get item(indexorname As Variant) As cls

Set item = Pcls2(indexorname)

End Property

Public Function NewEnum() As IUnknown
    Set NewEnum = Pcls2.[_NewEnum]
End Function

any ideas???? to point me in the right direction