Переставить элементы массива n в обратном порядке - VB

Option Explicit
Dim a(1 To 7) As Double
Dim b(1 To 7) As Double
Dim i As Integer
Dim j As Double
Dim min, s As Double
Dim n As Double
Private Sub Command1_Click()
 
a(1) = 3: a(2) = 5: a(3) = 7: a(4) = 9: a(5) = -11: a(6) = 13: a(7) = 15
Print "Г€cõîäГ*ûé Г¬Г*Г±Г±ГЁГў:"
For i = 1 To 7
Print a(i);
Next i
n = 7
Print vbLf
j = 0
For i = 1 To n
b(i) = a(n - j)
j = j + 1
Print b(i);
Next i
s = 1
For i = 2 To 7
s = s * b(i)
 
Next i
Print vbLf
Print "ÏðîèçâåäåГ*ГЁГҐ ГЎГҐГ§ ìèГ*ГЁГ¬Г*ëüГ*îãî ñîãëГ*Г±Г*Г® ïîðÿäêîâîìó Г*îìåðó =   "; s
 
 
End Sub