我怎么能用堆叠做到这一点？ VB

Question

我的问题将出现在下面的伪代码中：

我想自动将stackA推入stackTemp，直到stackTemp.Peek = TextBox Value。

然后弹出该值并将stackTemp中的所有项添加到列表框中，并返回到堆栈A中。

Begin
    stackA <- 1122
    stackA <- 1234
    stackA <- 2273

    btnSearch.Click:
    stackTemp.Push(stackA.Push)
    stringSearch <- stackTemp.Peek

    If stringSearch = stackTemp.Peek then
        ListBox1.Items.Add( **All Items In stackTemp** )
        stackA.Push( **All Items in stackTemp** )
    Else
        **Keep Poppping stackA into stackTemp until above happens**
    End If
End

如果有人对我有任何帮助那就太棒了!!!!!

增加： 到目前为止我的代码如下：

Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click

    stackTemp.Push(stackA.Pop)
    stringSearch = stackTemp.Peek
    If stringSearch = TextBox1.Text then
        stackTemp.Pop()


        For Each item As String In stackTemp
            Listbox1.items.add(item)
        Next
    Else
        'Do Nothing
    End If

End Sub

感谢。