Dim objs(2) As objectdim ary1() as string = {1,2,3,4,5}dim ary2() as string = {"a", "b"}dim ary3() as integer = {1,2,3}objs(0) = ary1objs(1) = ary2objs(2) = ary3
msgbox(objs(1)(1))