vb 一维数组赋值问题！

dim a
a = array("1","b","2",,,,,,)
一维数组赋值，由于元素不一样，所以用for不好实现，另外元素个数有100来个，我想一次性赋值，纠结的是如何换行？总不能这么多写一行把。用换行符号语法会报错。。。 一维数组赋值