Сортировка пузырьком - VB

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

Нужно отсортировать каждые третьи элементы столбцов по возрастанию, в чем ошибка?

For j = 1 To n
 For i = 3 To n - 1 Step 3
  For k = 1 To n - 1
   If A(i + 3, j) < A(i, j) Then
    s = A(i + 3, j)
    A(i + 3, j) = A(i, j)
    A(i, j) = s
   End If
  Next k
 Next i
Next j

Решение задачи: «Сортировка пузырьком»

textual
                            Листинг программы 
                        

                                 For j = 1 To n
       For i = 3 To n - 1 Step 3
         For k = i + 3 To n Step 3   '!!! было неверно n-1, надо n !!!
             If A(k, j) < A(i, j) Then
                s = A(k, j)
                A(k, j) = A(i, j)
                A(i, j) = s
             End If
         Next k
       Next i
    Next j
                        