VB数组定义问题求助

[wmkandyk12374]

VB数组定义问题求助
我需要将一个变量​的数值作为数组的上限，但是编译的时候有错误提示，请问一下，这段话错在哪里，要如何写才正确，多谢各位了！
下面是代码:

Dim iCount As Long
iCount = Shapes.Count
Dim c(1 To iCount) As Long '编译错误，要求常数表达戒

[舉杯邀明月]

变量声明：
Dim iCount As Long
Dim c() as long

过程代码中:
iCount = Shapes.Count
ReDim c(1 To iCount)