VBA - Shift down values in an array with feeding from top

[Legacy 143009]

What would be the best practice to shift down values of an array while feeding from top at the same time?

Dim myArr As Variant
myArr = Array("A", "B", "C")

For i = 0 To 1
  'What should be the code?
Next
'Expected result is myArr("C", "A", "B")

or

For i = 0 To 2
  'What should be the code?
Next
'Expected result is myArr("B", "C", "A")

 

[rlv01]

An example:

Function ArrShift(ByVal myArr As Variant) As Variant
    Dim TmpVar As Variant
    Dim I As Long
    
    For I = UBound(myArr) To LBound(myArr) Step -1
        Select Case I
        Case UBound(myArr)
            TmpVar = myArr(I)
            myArr(I) = myArr(I - 1)
        Case LBound(myArr)
            myArr(I) = TmpVar
        Case Else
            myArr(I) = myArr(I - 1)
        End Select
    Next I
    ArrShift = myArr
End Function

Sub AShiftTest()
    Dim myArr As Variant, TmpVar As Variant
    Dim I As Long, S As String

    myArr = Array("A", "B", "C")

    S = " Start :" & Join(myArr, " ") & vbCr
    
    myArr = ArrShift(myArr)

    S = S & "Finish: " & Join(myArr, " ")
    MsgBox S
End Sub

 

[Legacy 143009]

An example:

Function ArrShift(ByVal myArr As Variant) As Variant
    Dim TmpVar As Variant
    Dim I As Long
 
    For I = UBound(myArr) To LBound(myArr) Step -1
        Select Case I
        Case UBound(myArr)
            TmpVar = myArr(I)
            myArr(I) = myArr(I - 1)
        Case LBound(myArr)
            myArr(I) = TmpVar
        Case Else
            myArr(I) = myArr(I - 1)
        End Select
    Next I
    ArrShift = myArr
End Function

Sub AShiftTest()
    Dim myArr As Variant, TmpVar As Variant
    Dim I As Long, S As String

    myArr = Array("A", "B", "C")

    S = " Start :" & Join(myArr, " ") & vbCr
 
    myArr = ArrShift(myArr)

    S = S & "Finish: " & Join(myArr, " ")
    MsgBox S
End Sub

Thank you for the suggestion.
I am also thinkin about something like this. What is your opinion?

Dim myArr(3) As String, tempArr(3) As String
Dim shift As Integer
myArr(0) = "A"
myArr(1) = "B"
myArr(2) = "C"

shift = 1
For i = 0 To Ubound(myArr) - 1
  tempArr((i + shift) Mod Ubound(myArr)) = tempArr(i)
Next
For i = 0 To Ubound(tempArr) - 1
  myArr(i) = tempArr(i)
Next

"shift" is the amount of offset you want to.

 

[rlv01]

In coding there are many ways to skin a cat so if your method works and does what you need, then ok . But I will point out that you loop through the array twice instead of just once.

 

[Legacy 143009]

But I will point out that you loop through the array twice instead of just once.

Good point. I will consider this. Thanks for your time!
Don't skin a cat. I own one

 

[rlv01]

NP