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

Option Explicit
 
Dim i%, N%
 
Private Sub com1_Click()
    Cls
    Randomize Timer
    N = Val(txtT.Text)
    
    ReDim A%(1 To N)
    Print "дано"
    
    For i = 1 To N
        A(i) = 80 * Rnd
        Print Format(A(i), "00  ");
    Next
    Print: Print
    Print "иной порядок"
    For i = 1 To N \ 2
        If N Mod 2 = 0 Then
            Print Format(A(i), "00  ");
            Print Format(A(N + 1 - i), "00  ");
        Else
            Print Format(A(i), "00  ");
            Print Format(A(N + 1 - i), "00  ");
            If i = N \ 2 Then Print Format(A(i + 1), "00  ");
        End If
    Next i
End Sub