TreeView Help

Each Nodes key must be unique.

See the attached. There tree contents is on the worksheet.

Private Sub UserForm_Initialize()

    Dim rngTreeData As Range
    Dim lngRow As Long
    Dim strNodeKey As String
    Dim strRelativeNode As String
    Dim strText As String
    
    Set rngTreeData = Range("A1").CurrentRegion
    
    With rngTreeData
        For lngRow = 2 To .Rows.Count
            strNodeKey = .Cells(lngRow, 1)
            strRelativeNode = .Cells(lngRow, 2)
            strText = .Cells(lngRow, 3)
                
            If strRelativeNode = "" Then
                ' root
                TreeView1.Nodes.Add , , strNodeKey, strText
            Else
                TreeView1.Nodes.Add strRelativeNode, tvwChild, strNodeKey, strText
            End If
        Next
    End With
    
End Sub