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

关于动态定义数组大小并赋值问题
我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)
[解决办法]