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

Option Explicit
Dim i As Double
Dim j As Double
Dim a(1 To 40) As Double
Dim b(1 To 40) As Double
Private Sub Command1_Click()
Cls
For i = 1 To 40
a(i) = Int(Rnd * 100 + 10)
Print a(i); vbTab;
       If i Mod 6 = 0 Then Print vbTab; ""
 
Next
Print vbLf
For i = 40 To 1 Step -1
b(i) = a(41 - i)
Next
 
 
For i = 1 To 40
Print b(i); vbTab;
       If i Mod 6 = 0 Then Print vbTab; ""
Next
End Sub