visual basic 6.0 Как запустить обратный цикл

Question

Помогите пожалуйста. Вот моя проблема, на простом примере: при выборе в комбо1 появляется текст, в лист1 соответсвующий индекс этого текста. Дальше должно произойти считавание индексов вверх по столбцу до list1-2. У меня же считываетсверху вниз и выбирает ближайшее значение 
Dim i, s, z, m, x, y As Long 
 
Option Explicit 
 
Private Sub Form_Load() 
 
 Dim objExcel As Object 
 Dim objWorkBook As Object 
 Set objExcel = CreateObject("Excel.Application") 
 Set objWorkBook = objExcel.Workbooks.Open(App.Path & "\1.xls") 
 Do 
 i = i + 1 
 Loop Until objWorkBook.WorkSheets(3).Cells(i, "a") = "end" 
 For s = 1 To i - 1 
 Combo1.AddItem objWorkBook.WorkSheets(3).Cells(s, "b") 
 Next 
 
 For x = 1 To s - 1 
 List1.AddItem objWorkBook.WorkSheets(3).Cells(x, "a") 
 Next

Do 
 z = z + 1 
 Loop Until objWorkBook.WorkSheets(3).Cells(z, "a") = "end" 
 For m = 1 To z - 1 
 Combo2.AddItem objWorkBook.WorkSheets(3).Cells(m, "b") 
 Next 
 For y = 1 To z - 1 
 List2.AddItem objWorkBook.WorkSheets(3).Cells(y, "a") 
 Next 
 objWorkBook.Close 
 
 objExcel.Quit

End Sub 
Private Sub Combo1_Click()

List1.ListIndex = Combo1.ListIndex 
 List2.Text = List1.Text - 2 
 
End Sub 
 
Private Sub List2_Click() 
Combo2.ListIndex = List2.ListIndex 
End Sub

Спасибо большое, EV! Очень помогли.

Наталья Кулеш(Гаврилова) · Accepted Answer

Dim i As Integer 
 
' В данном случае переменная i изменяется от 0 до 100 
For i = 0 To 100 
 [ действие ] 
Next i 
 
' В данном случае переменная i изменяется от 100 до 0 
For i = 100 To 0 Step -1 
 [ действие ] 
Next i 
 
Dim i, s, z, m, x, y As Long 
 
Так можно объявлять только в VB .NET 
У Вас только переменная " y " стала типом Long, 
а остальные переменные имеют тип Variant 
 
Правильнее будет объявлять так 
Dim i As Integer, y As Long 
 
Кроме того, не пореже используйте тип Long 
Вам всегда должно хватать типа Integer 
Особенно в циклах!