' In die Zweite Ebene speichern
Private Sub AnlegenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal _
  e As System.EventArgs) Handles AnlegenToolStripMenuItem.Click
        If TreeView1.SelectedNode.Text = "Kategorie" Then
            Dim Index As Integer = TreeView1.SelectedNode.Index
            Dim Name As String = InputBox("Bitte den Namen der neuen Kategorie" & _
              "eingeben.", "neue Kategorie")
            TreeView1.Nodes(Index).Nodes.Add(Name)
            'TreeView1.Nodes.Add(Name)
        End If
    End Sub
 
'in die dritte speichern
 
    Private Sub AnlegenToolStripMenuItem1_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles AnlegenToolStripMenuItem1.Click
        Dim Index As Integer
        If Not TreeView1.SelectedNode.Parent Is Nothing Then
            index = TreeView1.SelectedNode.Parent.Index
        Else
            index = TreeView1.SelectedNode.Index
        End If
        Dim Name As String = InputBox("Name des Eintrages.", "neuer Eintrag")
 
    End Sub

Jedes Programm,
in das sich ein Fehler einschleichen kann,wird auch einen enthalten.