Private Sub cmdTermine_Click()
'function zum hinzufügen von Sektionen
Dim strSection As String
 
  ' Frage nach Bezeichnung
  strSection = InputBox("Bezeichnung des neuen Abschnittes:", _
    "Neuer Abschnitt", "")
 
  If strSection <> "" Then
    ' Prüfen, ob Abschnitt bereits existiert
 
    If IsInListe(lstSections, strSection) >= 0 Then
      MsgBox "Dieser Abschnitt existiert bereits!", 64
    Else
      ' Abschnitt hinzufügen
      With lstSections
        .AddItem strSection
        .ListIndex = IsInListe(lstSections, strSection)
      End With
    End If
  End If
End Sub

'-------------------auf FORM einfügen!--------------------------
' wird für die Function " IsInListe"  benötigt
Private Declare Function SendMessage Lib "user32" _
  Alias "SendMessageA" ( _
  ByVal hwnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Long, _
  ByVal lParam As String) As Long
 
Private Const LB_FINDSTRING = &H18F
'------------------------------------------------------
' Prüft, ob ein Wert in einer ListBox enthalten ist
' und gibt als Ergebnis den ListIndex zurück
' (-1, wenn nicht vorhanden)
Public Function IsInListe(Liste As ListBox, _
  ByVal Item As String) As Integer
 
  IsInListe = SendMessage(Liste.hwnd, _
    LB_FINDSTRING, -1, Item)
End Function