Вывести элементы массива на экран в обратном порядке по 6 чисел в строке. - VB

Option Explicit
Dim N As Integer
 
Private Sub Form_Click()
Dim i As Integer, j As Integer
N = 60
ReDim a(N) As Integer
Cls
        For i = LBound(a) To UBound(a) - 1
                a(i) = 10 * Int(Rnd * 9 + 1)
                If i Mod 6 = 0 Then Print
               Print vbTab; a(i);
               
        Next i
       Print
       Print      
        For i = N / 6 To LBound(a) + 1 Step -1
             For j = 6 - 1 To 0 Step -1
                 Print vbTab; a((i - 1) * 6 + j);
             Next
             Print
        Next i
End Sub