Option Explicit
Private iColl As Collection
Private curIndex As Integer
Public Property Get TopValue() As Integer
    TopValue = iColl(curIndex)
End Property
Public Property Get Count() As Integer
    Count = curIndex
End Property
 
Private Sub Class_Initialize()
    Set iColl = New Collection
    curIndex = 0
End Sub
 
Public Sub Push(item As Integer)
    If curIndex = 0 Then
        iColl.Add item
    Else
        iColl.Add item, , , curIndex
    End If
    curIndex = curIndex + 1
End Sub
 
Public Function Pop() As Integer
    Dim PoppedItem As Integer
    PoppedItem = iColl(curIndex)
    iColl.Remove curIndex
    curIndex = curIndex - 1
    Pop = PoppedItem
End Function
Public Sub Clear()
    Dim i As Integer
    Do Until iColl.Count = 0
        iColl.Remove curIndex
        curIndex = curIndex - 1
    Loop
End Sub
Private Sub Class_Terminate()
    Set iColl = Nothing
End Sub