可以的，先定义一个动态数组：dim a() as string
到使用的地方，再重定义上下限：
n=15
redim a(1 to n)  ',当然，n 在重定义前就要确定
如果a中放了数据了，还要增加上限，还可以用 ReDim Preserve 语句来扩充数组：
a(15)=15
ReDim Preserve a(UBound(a) + 10)  '只增加上限，不改变元素值

转发的，浏览器上的问题复制粘贴过来的，不知道对否，欢迎讨论！