そうは言うけどこういうの作っとけば割と楽よ

Function CreateArray()
　　CreateArray = Array()
End Function

Sub AddArray(a, e)
　　ReDim Preserve a(UBound(a)+1)
　　If IsObject(e) Then
　　　　Set a(UBound(a)) = e
　　Else
　　　　a(UBound(a)) = e
　　End If
End Sub


[ Sample ]

a = CreateArray()
AddArray a, "1"

b = CreateArray()
AddArray b, new RegExp