vba 动态数组赋值，数组下标越界错误

数组大小不确定，不适合直接给较大的固定长度，直接赋值会出现数组下标越界的错误，该怎么办

动态数组