Преобразование массива: поменять местами правую и левую половины

Private Sub Command1_Click()
    Dim X() As Integer
    Dim Y() As Integer
    Dim N As Integer
    Dim temp As Integer
    N = InputBox("Enter N", "N")
    ReDim X(1 To N) As Integer
    ReDim Y(1 To N) As Integer
    For i = 1 To N Step 1
        X(i) = Rnd * 100
        Print X(i);
    Next i
    temp = 1
    For i = N \ 2 + 1 To N Step 1
        Y(temp) = X(i)
        temp = temp + 1
    Next i
    For i = 1 To N \ 2 Step 1
        Y(temp) = X(i)
        temp = temp + 1
    Next i
    Print vbCrLf + "Result:"
    For i = 1 To N Step 1
        Print Y(i);
    Next i
End Sub

'::: Обмен "половинками"
Sub swapArr(A() As Integer, Optional b As Integer = 0, Optional e As Integer = 0)
    n% = UBound(A, 1)
    If e = 0 Then
       swapArr A, 1, IIf((n% Mod 2) = 0, n% \ 2 + 1, n% \ 2 + 2)
       Exit Sub
    End If
    If e > n% Then
       Exit Sub
    Else
       tmp% = A(b)
       A(b) = A(e)
       A(e) = tmp%
       swapArr A, b + 1, e + 1
    End If
End Sub