Nothing fancy here.  Just a simple function to clear the selections from a ListBox.

Function ClearListBox(LBox As ListBox)
    Dim Item As Variant
    For Each Item In LBox.ItemsSelected
        LBox.Selected(Item) = False
    Next Item
End Function

Image by ARTEM DA PICTURES from Pixabay