Option Explicit Dim a() As Variant Private Sub Command1_Click() ReDim a(&H10000 - 1) End Sub Private Sub Command2_Click() Erase a End Sub