PLEASE HELP ME OUT Parent-Child hierarchy construction

' in class module clsLink

Public Children As Collection
Public Name As String
Public IsChild As Boolean
Public Family As clsLinks

Function AddChild(ChildName As String) As clsLink
    Dim newChild As clsLink
    Set newChild = Family.AddLink(ChildName)
    On Error Resume Next
    Children.Add Item:=newChild, Key:=ChildName
    On Error GoTo 0
    Set AddChild = Children(ChildName)
    AddChild.IsChild = True
    Set newChild = Nothing
End Function

Private Sub Class_Initialize()
    Set Children = New Collection
End Sub

Private Sub Class_Terminate()
    Dim oneKid As clsLink
    For Each oneKid In Children
        Set oneKid = Nothing
    Next oneKid
    Set Children = Nothing
End Sub

' in class module clsLinks

Public Item As Collection

Function AddLink(Name As String) As clsLink
    Dim newLink As New clsLink
    With newLink
        .Name = Name
        Set .Family = Me
    End With
    On Error Resume Next
    Item.Add Item:=newLink, Key:=Name
    On Error GoTo 0
    Set AddLink = Item(Name)
    Set newLink = Nothing
End Function

Property Get Count() As Long
    Count = Item.Count
End Property

Private Sub Class_Initialize()
    Set Item = New Collection
End Sub

Private Sub Class_Terminate()
    Dim oneLink As clsLink
    For Each oneLink In Item
        Set oneLink = Nothing
    Next oneLink
    Set Item = Nothing
End Sub

' in normal module

Sub test()
    Dim DataRange As Range
    Dim oneCell As Range
    Dim allLinks As New clsLinks, oneLink As clsLink
    Dim strResult As String, oneDString As Variant, dStrings As Object
    
    With Sheet1.Range("A:A")
        Set DataRange = Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
    End With
    DataRange.Offset(0, 2).Resize(65536, 10).ClearContents
    
    For Each oneCell In DataRange
        With allLinks.AddLink(CStr(oneCell.Value))
            .AddChild CStr(oneCell.Offset(0, 1).Value)
        End With
    Next oneCell
    For Each oneLink In allLinks.Item
        If oneLink.IsChild Then
        Else
            Set dStrings = DescentStrings(oneLink)
            For Each oneDString In dStrings
                Range("D65536").End(xlUp).Offset(1, 0).Value = oneDString
            Next oneDString
        End If
    Next oneLink
End Sub

Function DescentStrings(aParent As clsLink) As Object
    Dim Result As New Collection
    Dim oneKid As clsLink
    Dim oneName As String, oneDescent As Variant
    If aParent.Children.Count = 0 Then
        Result.Add Item:=aParent.Name
    Else
        For Each oneKid In aParent.Children
            For Each oneDescent In DescentStrings(oneKid)
                oneName = aParent.Name & ">" & oneDescent
                On Error Resume Next
                Result.Add Item:=oneName, Key:=oneName
                On Error GoTo 0
            Next oneDescent
        Next oneKid
    End If
    Set DescentStrings = Result
End Function