First, create a Collection and add a dummy element to it: Set C = New Collection C.Add Null Then, add elements to your stack like this: C.Add E, , 1 To see what's on the top of the stack: C(1) To remove the item on the top of the stack: C.Remove 1