VB 6.0. Массивы

[NikkiRox]

Задание: Дан массив из 15 целых чисел. Найти наибольшее и наименьшее из них. Вывести все четные числа, встречающиеся между ними

После выполнения в List2 выводятся чётные числа. Проблема-выводятся не " 2 4 6 и т.д." , а " ... 6 4 2 " . Как сделать, чтобы было по порядку?!

Код:

Private Sub Command1_Click()
Label1 = "Дан массив из 15 целых чисел. Найти наибольшее и наименьшее из них. Вывести все четные числа, встречающиеся между ними."
List1.Clear: List2.Clear
Dim n As Single, m(15) As Single, min As Single, max As Single, nmin As Single, nmax As Single

For i = 1 To 15 'цикл ввода массива
m(i) = InputBox("Элемент" & Str(i))

Next i

min = 10000000
For i = 1 To 15

If m(i) > max Then max = m(i): nmax = i
If m(i) < min Then min = m(i): nmin = i
List1.AddItem m(i)
Next i
If nmax > nmin Then k = -1 Else k = 1
For i = nmax To nmin Step k
If m(i) Mod 2 = 0 Then List2.AddItem m(i)
Next i
Text1.Text = max & " под номером " & nmax
Text2.Text = min & " под номером " & nmin
End Sub