¿Remover un Item de un listbox vba?

Que tal tengo este código que me funciona cuando quiero eliminar un item de mi listbox ("E") pero lo que quiero ahora es condicionarlo es decir que ahora solo me elime los items que se parezcan a estos textos :

10397-AML Afore

181-Comercialización y Servicio

183-Inversiones

7733-Riesgos

Y si el item que selecciono del listbox ("E") no es igual a cualquiera de estos 4 no los pueda remover, si es igual a cualquiera de estos items si lo pueda eliminar, cabe mencionar que estos 4 datos vienen de otro listbox (D)...

Este es el código que uso pero ahora no se como condicionarlo

Dim var As Integer
For var = e.ListCount - 1 To 0 Step -1
If e.Selected(var) = True Then _
e.Selected(var) = False: e.RemoveItem var: Exit Sub
Next