For loop 使用每个in-For循环

我正在尝试使用For循环中的Each关键字在数组中输入值，但在下面的代码中我无法做到这一点，您能帮助我理解下面代码中的错误吗

Dim Arr（4）
对于Arr中的每个元素
元素=输入框（“输入数据”）
下一个
'数组中未存储任何内容：Arr（）

不能使用从For Each（*）返回的索引器设置数组元素，因此必须执行以下操作：

Dim Arr(4)

For i = 0 to 4
    Arr(i) = InputBox("Enter Data")
Next

For Each Element in Arr
    MsgBox Element
Next

---

（*）我猜它是每个循环的实际值的副本，仅对预先存在的数组数据有效。它不能用于作业

如果在这种情况下，需要为每个循环使用，可以使用以下方法：

Dim Arr(4)

i=0

For Each Element in Arr
   Arr(i)= InputBox("Enter Data")
   i++

Next

我实际上不知道语法，但是下面的概念将帮助您在数组中输入数据