This is not a right way to remove items from list. You may get errors.
Try like this:
For Each obj As Object In lstTot.SelectedItems
lstEx.Items.Add(obj)
Next
While lstTot.SelectedIndices.Count > 0
lstTot.Items.RemoveAt(lstTot.SelectedIndices.Item(0))
End While