Option Explicit

Private Sub Form_Load()
  List1.Clear
  With List1
    .AddItem "Alfred"
    .AddItem "Bruno"
    .AddItem "Daniel"
    .AddItem "Heino"
    .AddItem "Roger"
  End With
  Text1.Text = "Bruno"
End Sub

Private Sub cmdListHinzufuegen_Click()
  Dim strText As String

  strText = Trim(Text1.Text)

  If strText = "" Then
    Label1.Caption = "Bitte Text in Textbox eingeben!"
    Text1.SetFocus
    Exit Sub
  End If

  If EintragVorhanden(List1, strText) Then
    Label1.Caption = "Der Eintrag ist bereits vorhanden!"
  Else
    List1.AddItem strText
    Label1.Caption = "Der Eintrag wurde zur Liste hinzugefügt!"
  End If
  Text1.SetFocus
End Sub

Private Function EintragVorhanden(c As Control, _
      eintrag As String) As Boolean
  Dim i As Integer
  EintragVorhanden = False

  If chkGrossKlein.Value = 0 Then
    For i = 0 To c.ListCount - 1
      If UCase(c.List(i)) = UCase(eintrag) Then
        EintragVorhanden = True
        c.ListIndex = i
        Exit For
      End If
    Next i
  Else
    For i = 0 To c.ListCount - 1
      If c.List(i) = eintrag Then
        EintragVorhanden = True
        c.ListIndex = i
        Exit For
      End If
    Next i
  End If
End Function