Listbox Checker

I have a listbox and I need to check if there are 2 of the same item in it and if there are I need it to delete one of them. I have no idea how to do this. Thanks to whoever can help me

I have a listbox and I need to check if there are 2 of the same item in it and if there are I need it to delete one of them. I have no idea how to do this. Thanks to whoever can help me


Hi
Try this. This will remove the duplicates


Dim i As Integer
Dim j As Integer
Dim listcount As Integer
Dim stritem As String
Dim searchItem As String

listcount = List1.listcount
i = 0
j = 0

Do While i <= listcount - 1
searchItem = List1.List(i)

Do While j <= List1.listcount - 1
If j = i Then GoTo NextStep
If searchItem = List1.List(j) Then
List1.RemoveItem (j)
End If
NextStep:
j = j + 1
Loop
i = i + 1
j = 0
Loop

works perfect, thanks for that.