reDim vars(0).VarValue(3) vars(0).VarValue(0) = New Objectvars(0).VarValue(1) = New Objectvars(0).VarValue(2) = New Object