Переставить элементы массива местами - VB

Private Sub Command1_Click()
Dim i&
  ReDim a(0 To 11)
  For i = LBound(a) To UBound(a)
    a(i) = i 'MonthName(i + 1, True)
  Next
  ReDim b(LBound(a) To UBound(a))
  On Error Resume Next
  For i = LBound(a) To UBound(a) Step 2
    b(i) = a(i \ 2)
    b(i + 1) = a(UBound(a) - i \ 2)
  Next
  Print Join(b)
End Sub