RosettaCodeData/Task/Queue-Usage/VBA/queue-usage.vba

Public Sub fifo()
    push "One"
    push "Two"
    push "Three"
    Debug.Print pop, pop, pop, empty_
End Sub