Как получить название ключа в коллекции

Private Sub CollKeys2(Coll As Collection, Keys() As String, pKeys() As LongPtr)
    Dim collElem As tpCollElemPtr
    CollKeys2_ Coll, Keys, pKeys, collElem
End Sub
Private Sub CollKeys2_(Coll As Collection, Keys() As String, pKeys() As LongPtr, collElem As tpCollElemPtr, _
                      Optional Ptr As LongPtr, Optional pPtr As LongPtr, Optional ByVal Ptr0 As LongPtr)
    Dim i As Long, Cnt As Long, lpTmp As LongPtr, ptKeys As LongPtr
    
    If Coll Is Nothing Then Exit Sub
    Cnt = Coll.Count
    If Cnt Then
        ReDim Keys(1 To Cnt, 1 To 1)
        CopyMemory ByVal VarPtr(Ptr0) - ptrSz, VarPtr(Ptr0) - ptrSz * 2, ptrSz
        Ptr0 = VarPtr(Ptr0)
        pPtr = Ptr0 - ptrSz * 5: pPtr = Ptr: lpTmp = Ptr 'получение указателя Keys()
        pPtr = Ptr0 - ptrSz * 4: pPtr = Ptr: Ptr = lpTmp '2й вариант: pPtr = ArrPtr(pKeys): Ptr = lpTmp
        pPtr = ObjPtr(Coll) + collPtrOffset: lpTmp = Ptr
        pPtr = Ptr0 - ptrSz * 3: Ptr = lpTmp
        
        pKeys(1, 1) = collElem.pKey
        For i = 2 To Cnt
            Ptr = collElem.nxtPtr
            pKeys(i, 1) = collElem.pKey
        Next
    End If
End Sub
 
Private Sub Пример()    
    Dim Coll As New Collection
    Dim Ptr0 As LongPtr, pKeys() As LongPtr, Keys() As String
    Dim i&, Cnt&
    
    Coll.Add "item1", "key1"
    Coll.Add "item2", "key2"
    Coll.Add "item3", "key3"
    Cnt = Coll.Count
    
    CollKeys2 Coll, Keys, pKeys
    
    Range("A1").Resize(Cnt).Value = Keys 
    
    'освобождение указателей
    For i = 1 To Cnt
        pKeys(i, 1) = 0
    Next
    CopyMemory ByVal VarPtr(Ptr0) - ptrSz, Ptr0, ptrSz 'CopyMemory ByVal ArrPtr(pKeys), Ptr0, ptrSz
End Sub