delete not selected items from listbox based on selected item without delete from sheet

[leap out]

Hello guys
In fact, my topic is different from the rest of the usual topics, and I certainly did not find any topic like mine. What I searched for is that all the elements are not selected should delete them , provided that they are before the selected element. As for the not selected elements that locate after the selected element, they must remain as they are without deletion .
note: it must just delete from listbox ,not from sheet

here is my file to see closely
DELETE .xlsm
first picture whether show the data on userform or search by textbox

second sheet when select specific item

then should delete all of items before selected item from listbox, should not delete from sheet at all .

thanks in advance .

 

[DanteAmor]

Replace your CommandButton1 code with this:

Private Sub CommandButton1_Click()
  Dim i As Long
  For i = ListBox1.ListIndex - 1 To 1 Step -1
    ListBox1.RemoveItem i
  Next i
End Sub

 

[leap out]

great!
thanks very much