Обратный порядок элементов списка ComboBox'a - VBA

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

Здравствуйте уважаемые гуру. Собрал из нескольких источников функцию сортировки по порядку элементов списка комбобокса (список берется из ячеек). Не хватает знаний сделать так, чтобы список был в обратном порядке. В идеале, конечно, чтобы можно было выбрать - прямой (по алфавиту) или обратный порядок. Файл с функцией, примером и комментариями прикрепил. Буду рад за любую оказанную помощь... (ну или наводку) P.S. Так на всякий случай, чтобы с толку не сбило, там еще прикручена функция сортировки уникальных (не повторяющихся) значений.

Решение задачи: «Обратный порядок элементов списка ComboBox'a»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub CheckBox1_Click()
Dim i%, lb2()
ReDim lb2(0 To UBound(ComboBox1.List))
For i = UBound(ComboBox1.List) To 0 Step -1
   lb2(n) = ComboBox1.List(i): n = n + 1
Next
ComboBox1.List = lb2
End Sub