Private Sub cmdAuslesen_Click()
Dim iCounter As Integer
Dim sMsg As String
For iCounter = lstValues.ListCount - 1 To 0 Step -1
If lstValues.Selected(iCounter) Then
sMsg = sMsg & lstValues.List(iCounter) & vbLf
lstValues.RemoveItem iCounter
End If
Next iCounter
MsgBox sMsg
End Sub