Private Sub Command1_Click()
  <font color=green>' Eintrag hinzufügen</font>
  Dim sItem As String
 
  sItem = InputBox("Neuer Eintrag", "Hinzufügen")
  If sItem <> "" Then
    List1.AddItem sItem
  End If
End Sub

Private Sub Command2_Click()
  <font color=green>' aktuell markierten Eintrag löschen</font>
  Dim Index As Integer
 
  With List1
    Index = .ListIndex
    If Index >= 0 Then
      .RemoveItem Index
      If Index > .ListCount - 1 Then Index = .ListCount - 1
      .ListIndex = Index
    End If
  End With
End Sub