Удаление повторяющихся значений из комбобокса - VBA

    '...
    Dim СписокДубликатов As New Collection
    Dim Индекс As Integer
    
    For Индекс = 1 To Комбобокс.ListCount
        If Комбобокс.List(Индекс) = ПроверяемоеЗначение Then
            СписокДубликатов.Add Индекс
        End If
    Next
    If СписокДубликатов.Count > 0 Then
        For Индекс = СписокДубликатов.Count To 1 Step -1
            Комбобокс.RemoveItem СписокДубликатов.Item(Индекс)
        Next
    End If