Listbox remove never work in for loop

I used code below to add OrderID from listbox and then remove this OrderID from listbox but remove code never work.
Why?
For i As Integer = 0 To lsbData.Items.Count - 1 AddOrder(Trim(lsbData.Items(i))) lsbData.Items.Removeat(Trim(lsbData.Items(i)) Next