是否有可能根据数组值来确定一个新的variables？

我有很多领域，我需要定义一个新的variables。 字段的列表可能会改变，所以我想把字段的列表放入一个string来填充一个数组。 从那里，我想循环通过数组和维度variables。 当我运行类似于下面的代码时，出现编译错误“需要常量expression式”。 如果这样的事情是不可能的，有没有更好的办法来达到类似的结果？

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