是否可以根据数组值标注新变量？

Question

我有很多字段需要我定义一个新变量。字段列表可能会更改，因此我希望将字段列表放在字符串中以填充数组。从那里，我想循环遍历数组并维度变量。当我运行类似于下面的代码时，我得到编译错误＆＃34;需要常量表达式。＆＃34;如果这样的事情不可能，有没有更好的方法来获得类似的结果呢？

Public Sub Test()

Dim strFields as String
Dim arrFields() as String

strFields = "Field1|Field2|Field3"

arrFields = split(strFields,"|")

For Each x In arrFields()
    Dim arrFields(x) As String
Next x

End Sub