Можно ли это делать?

Есть два list'a. Оба заполнены одинаково числами от 0 до 5 по три раза.
Задача: При выборе числа "n" в list1, отоброжать число m=n-1 в list2, но из
того же ряда( т.е. ближайшее вверх по списку, а не первое сверху вниз) .
Вопрос: можно ли делать это через обратный цикл, массив не подходит

Option Explicit
Dim i As Integer, r As Integer, x As Integer, z As Integer
Dim n As Double, m As Double

Private Sub Form_Load()
For i = 0 To 5 'заполнение листов
List1.AddItem i
List1.AddItem i
List1.AddItem i
Next
For r = 0 To 5
List2.AddItem r
List2.AddItem r
List2.AddItem r
Next
End Sub

Private Sub List1_Click() 'при выборе лист1
x = List1.ListIndex
n = List1.Text
List2.ListIndex = x
For m = n To n - 1 Step -1 'запускается обратный цикл вверх по списку до n - 1
x=x-1 ' а это условие перебора индексов начиная с выбранного вверх по списку
List2.Text = m : list2.listindex=x
Next
End Sub