It would be very helpful if you elaborated on what you were trying to do, but here is my best stab at it.
It sounds like you're trying to get all of the values from the listbox.
Dim myValues As New Collections.Generic.List(Of String)
For Each aListItem As ListItem in Me.ListBox1.Items
Now you have all of the values in your listbox stored in myValues.
Hope this is what you're looking for.
Not sure what your Delete and shredder objects are though.