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

Формулировка задачи:

Добрый день. Как в VBA удалить из комбобокса данные которые повторяются, оставив только по одному значению... Спасибо.

Решение задачи: «Удаление повторяющихся значений из комбобокса»

textual
                            Листинг программы 
                        

                                '...
    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
                        