Option Explicit
Private sItem As String
 
Private Sub Command1_Click()
  <font color=green>' aktuellen Eintrag löschen und in Variable 
  ' zwischenspeichern</font>
  With List1
    If .ListIndex > -1 Then
      sItem = .Text
      .RemoveItem .ListIndex
    End If
  End With
End Sub