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

Sub Swap3(x)
Dim i&, j&, t
i = LBound(x)
j = UBound(x) - 2
For i = i To i + 2
  t = x(i)
  x(i) = x(j)
  x(j) = t
  j = j + 1
Next
End Sub
 
Sub test()
Dim i&
ReDim a(-1 To 10) As Integer
For i = LBound(a) To UBound(a): a(i) = i: Debug.Print a(i);: Next: Debug.Print
Swap3 a
For i = LBound(a) To UBound(a): Debug.Print a(i);: Next: Debug.Print
ReDim s(1 To 12) As String
For i = 1 To 12: s(i) = MonthName(i): Next
Swap3 s
For i = LBound(s) To UBound(s): Debug.Print s(i);: Next: Debug.Print
End Sub