Как разрешить пользователям нажимать несколько раз, чтобы увеличить количество элементов, переписав вместо этого начальное количество элементов?

---

Dim ItemCostArray(22) As ItemCost

Частная Структура ItemCost

Dim strFood As String

ItemCostArray(0). strFood = " булочка с маслом"

Что я уже пробовал:

Dim intQuantity As Integer
       Dim dblTotalPrice As Double
       Dim intCountOverwrite As Integer

       Integer.TryParse(txtQ.Text, intQuantity)
       intQuantity += 1

       If cbFood.SelectedItem = ItemCostArray(0).strFood Then
           intCountOverwrite = intCountOverwrite + 1
           intQuantity = intQuantity + intCountOverwrite
           dblTotalPrice = intQuantity * 1.2
           strDisplay = ItemCostArray(0).strFood & ControlChars.Tab & intQuantity & ControlChars.Tab & dblTotalPrice.ToString("C2")
           ListBox1.Items.Add(strDisplay)

       End If

---