Сортировка данных в combobox по убыванию - VB

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

Помогите в решение проблемы. Список в combobox подливается из файла. Мне нужно что бы этот список в combobox был отсортирован по убыванию. Как сделать по возрастанию (тоесть по алфавиту) нашла, в combobox есть свойство Sorted, если оно TRUE, то сортировка по алфавиту происходит нормально. Но мне нужна сортировка в обратную сторону. Можна ли это сделать? Вот часть кода, в котором подливаются данные в combobox. Как сюда добавить сортировку?

                    Листинг программы
                
 
                        
                          
                    
Private Sub Form_Load()
Dim dt As String
 
Open App.Path + "\AppData\repdates_day.dat" For Input As #99
While Not EOF(99)
    Input #99, dt
    Combobox1.AddItem dt
Wend
Close #99
Combobox1.ListIndex = 0
 
End Sub

Решение задачи: «Сортировка данных в combobox по убыванию»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Form_Load()
Dim dt As String, i&
 
Open App.Path + "\AppData\repdates_day.dat" For Input As #99
While Not EOF(99)
    Input #99, dt
    Combobox2.AddItem dt
Wend
Close #99
For i = Combobox2.ListCount - 1 To 0 Step -1
  Combobox1.AddItem Combobox2.List(i)
Next
Combobox1.ListIndex = 0
End Sub