eliminar duplicados en una listbox

[David_erh]

Hola a todos l@s chi@s del foro, tengo una rutina en Visual basic con la cual en un form agrego nombres a una listbox teniendo como origen un archivo de excel. Pero aveces algunos nombres estan repetidos; así que buscaba una rutina q elimine los duplicados del listbox y conseguí la siguiente:

Public Sub Duplicados(listbox As listbox)
Dim Search1 As Long
Dim Search2 As Long
Dim KillDupe As Long
KillDupe = 0
For Search1& = 0 To listbox.ListCount - 1
For Search2& = Search1& + 1 To listbox.ListCount - 1
KillDupe = KillDupe + 1
If listbox.List(Search1&) = listbox.List(Search2&) Then
listbox.RemoveItem Search2&
Search2& = Search2& - 1
End If
Next Search2&
Next Search1&
End Sub


El problema es q funciona siempre y cuando el número de items en la listbox sea pequeño (4 o 5)pero si es de 10 o mas la rutina no funciona y hasta ahora no encuentro el porque; espero me ayuden.
Gracias.

David