Sub a140409_2111()
Debug.Print
Debug.Print "поменять местами элементы массива"
''A(a[1],a[2],…,a[n])
''Первый на место второго
''второй на место третьего
''и т.д.
''т-ный на место первого
Dim xm, x1, x1k, s1, j1
xm = Split("1,2,3,4,5,6", ",")  'заполнение массива
x1 = LBound(xm, 1)
x1k = UBound(xm, 1)
s1 = xm(x1k)   'запоминаем последний
j1 = x1k
Do While j1 > x1
xm(j1) = xm(j1 - 1)      'сдвиг с конца
j1 = j1 - 1
Loop

xm(x1) = s1        'занесение последнего в первый
j1 = x1
Do While j1 <= x1k
Debug.Print xm(j1);  'контрольная печать
j1 = j1 + 1
Loop


End Sub