With Listbox1.Items
            If Listbox1.SelectedIndex > 0 Then .Remove(Listbox1.SelectedItem)
            If .Count >= 1 Then Listbox1.SelectedItem = .Item(0)
End With