动态数组赋值的问题求教

现在有个问题，我不知道一个数组的具体到底有长度，希望能动态的给他赋值
例如：
dim a as variant  di