redim Preserve basicdata(1 to 6)Private Sub Form_click()Dim a()ReDim a(1 To 4)a(1) = "1"ReDim Preserve a(1 To 6)a(6) = "a"For i = 1 To 6Print a(i)Next iEnd Sub