On Error Resume Next
                Dim strTemp As String
                strTemp = Form1.TreeOptions.Nodes(strKey).Text
 
                If Err.Number = 35601 Then
                    Form1.TreeOptions.Nodes.Add _
                      Form1.TreeOptions.SelectedItem.Key, tvwChild, strKey, _
                      strSection, 14
                Else
                    MsgBox "Section already exists!", vbInformation, ""
                End If

Mit freundlichen Gr??en,
Andy G.