VBA How to store the value of a statement into an array at each step of a loop?

Question

Visual Basic

Is there a command that can save the value of sStr(i) to the array at each step of the loop, so that as a result, the array avArr1 has as many elements as the number of steps the loop takes?

Dim sStr
Dim i, e
Dim avArr
Dim avArr1
sStr = Split(Me!ОрганРегУчета)
e = UBound(sStr)
i = 1
i = i + 1
Do
i = i + 1
???
Loop Until i = e
avArr = (sStr(1), s sStr(2))
avArr1 = ....

Answer 1

Alexey Nemiro , thank you very much for your efforts)) Solution of the problem in a cycle:

Private Sub Кнопка()
Dim sStr() As String
sStr = Split(Me!Поле)
Dim avArr() As String
Dim i As Integer
For i = 3 To UBound(sStr) 'Где три начало отсчета'
If i = 3 Then 
ReDim avArr(0)
Else
ReDim Preserve avArr(UBound(avArr) + 1)
End If
avArr(UBound(avArr)) = sStr(i)
Next i
MsgBox Join(avArr, " ")
End Sub