Dim a As Variant
a=Array(1,2,3,4,5) Dim a(10) As Integera
=Array(1,2,3,4,5) Dim a%(10)
a(1)="ABCDE" Dim a(3),b(3) As Integer
a(0)=0
a(1)=1
a(2)=2 b=a
Dim a As Variant a=Array(1,2,3,4,5) Dim a(10) As Integera =Array(1,2,3,4,5) Dim a%(10) a(1)="ABCDE" Dim a(3),b(3) As Integer a(0)=0 a(1)=1 a(2)=2 b=a