Циклический сдвиг вправо/влево на k элементов в матрице

If (p < 0) Then
For j = 1 To Abs(p)
b = a(1)
For i = 1 To N - 1
a(i) = a(i + 1)
Next i
a(N) = b
 
Next j
End If
If (p >= 0) Then
For j = 1 To p
b = a(N)
For i = N To 2 Step -1
a(i) = a(i - 1)
Next i
a(1) = b
 
 
Next j
End If

For r = LBound(a, 1) To UBound(a, 1)
    '.........
Next r

    For r = LBound(a, 2) To UBound(a, 2)
        '.........
    Next r

For r = LBound(a, 2) To UBound(a, 2)
For i = 1 To n
a(i, r) = i
Label1 = Label1.Caption & a(i, r) & " "
Next i
 
p = TextBox1
 
If (p < 0) Then
 For j = 1 To Abs(p)
                b = a(1, r)
                For i = 1 To n - 1
                    a(i, r) = a(i + 1, r)
                    Next i
                a(n, r) = b
 
Next j
End If
If (p >= 0) Then
 For j = 1 To p
                b = a(n, r)
                For i = n To 2 Step -1
                    a(i, r) = a(i - 1, r)
                    Next i
                a(1, r) = b
            
 
Next j
End If
Label1 = Label1.Caption & vbNewLine
Next r
 
 
For r = LBound(a, 2) To UBound(a, 2)
For i = 1 To n
Label2 = Label2.Caption & a(i, r) & " "
Next i
Label2 = Label2.Caption & vbNewLine
Next r

'сдвиг p устанавливается в модуле ThisDocument при открытии Дьюар.doc
Dim a, b  'переменные типа Variant для ввода и вывода массивов
Dim k As Long, i As Long 'индексы массивов (копии и оригинала)
Dim n As Long           'размер массива
        a = Array(0, 1, 2, 3, 4, 5)
        'теперь a содержит массив из заданных выше элементов
        b = a 'b копия a
        n = UBound(a) - LBound(a) + 1
        
k = Abs(n + p) Mod n   'реальный сдвиг (исключили целые обороты)
            While k <= UBound(a)
                b(k) = a(i):    k = k + 1:  i = i + 1
            Wend
k = LBound(a)
            While i <= UBound(a)
                b(k) = a(i):    k = k + 1:  i = i + 1
            Wend