VB6 : ComboBox Duplicate Item Removed

Private Sub Combo1_Click()

Dim s As String
Dim i As Integer

s = Combo1.Text

For i = Combo1.ListCount - 1 To 0 Step -1
If Combo1.List(i) = s And Combo1.ListIndex <> i Then Combo1.RemoveItem i
Next i

End Sub