Treeview uitbreiden

Me.TreeView1.Height = 480
  Const OUDER = "Ouder"
  With Me.TreeView1.Nodes
    .Add Key:=OUDER, Text:="Alle Zaken"  'Hoofd node

'=========================================================


    Const KIND1 = "Kind1"
    '1e node   1 van 4=========================================
    .Add Relative:=OUDER, _
         relationship:=tvwChild, _
         Key:=KIND1, _
         Text:="Kind 1"
    '================================================
        
    'Zoek eerst de klas
    For i = 2 To 100
        
       
    Sheets("Blad2").Select
        If Cells(i, 1) = "" Then Exit For
        If Cells(i, 6) = Klas Then
            Const KIND1_KIND1 = "Kind1Kind1"
        '1 van 1 nod===========================================
            .Add Relative:=KIND1, _
                relationship:=tvwChild, _
                Key:=KIND1_KIND1 & " " & i, _
                Text:="kind 1 van 1"
                If Cells(i, 1) <> "" Then
                     TreeView1.Nodes("Kind1Kind1 " & i & "").ForeColor = RGB(255, 102, 0)
                End If
        End I
End With

.Nodes.Add , 4, "Willem", "Ouder"
        .Nodes.Add .Nodes("Willem"), 4, , "kind"
        .Nodes.Add .Nodes("Willem").Child, 4, , "kleinkind 1"
        .Nodes.Add .Nodes("Willem").Child, 4, , "kleinkind 2"