Hi, In Sub Globals I declared: Dim Type (a,b,c,d) S (0) As Int32 When the program is running, I find out the number of structures I need. How can I redimension this array? Harry