关于动态定义数组大小并赋值有关问题

关于动态定义数组大小并赋值问题
我excel有一列100行的数据,想把这些数据填充到一个数组里(不重复数据)
请问怎么写(VBA或VB.NET) 数组大小是添加一个值数组大小加1
不知能否实现

------解决方案--------------------
Dim a() As String
ReDim Preserve a(0)
a(0) = "1"
ReDim Preserve a(2)
a(1) = "2"
a(2) = "3"

Debug.Print a(0) & "_" & a(1) & "_" & a(2)
------解决方案--------------------
探讨
你确定这样可以做,为什么我在重新定义数组大小时,之前的值会丢