IMPORTANT NOTE: it is almost always better to use a List which contains many methods to simplify everything.
Also, not fully tested.
Uses: IsArray and ArrayType
Public Sub RedimPreserve(ObjArray As Object, NewSize As Int) As Object
Dim Result As Object
If IsArray(ObjArray) Then...