[Fast] Remove Duplicates From A Listbox

Sub RemoveDuplicates(ListBox As ListBox)
Dim Col As New Collection
Dim i As Long
On Error Resume Next
If ListBox.ListCount > 1 Then
 For i = 0 To ListBox.ListCount - 1
 Col.Add ListBox.List(i), ListBox.List(i)
 Next
 ListBox.Clear
 For i = 1 To Col.Count
 ListBox.AddItem Col.Item(i)
 Next
 Set Col = Nothing
End If
End Sub