Combobox VB6列表框添加相同的数据

我有一个问题，我目前正在做我的项目，我的问题是，如果我在不同的时间订购，我不能使我的同一订单在同一行。例如，我点了一个奶酪汉堡，然后我又点了一次，我想在我的列表中发生的是，他们只会增加我点的数量，而不是再写下来。我不知道我应该写什么代码，我尝试了不同的代码，但不起作用，所以我删除了它。请原谅我的英语。多谢各位

---

你没有发布任何代码

Option Explicit

Sub UpdateProduct(sProduct As String, ByVal Qty As Long, ByVal Amnt As Currency)
Dim i As Long
i = GetStringIndex(List1, sProduct)

If (i = -1) Then ' there is no match?
  List1.AddItem sProduct
  List2.AddItem Str(Qty)
  List3.AddItem Str(Amnt)
Else
  List2.List(i) = Val(List2.List(i)) + Qty
  List3.List(i) = Val(List3.List(i)) + Amnt
End If
End Sub
Function GetStringIndex(lst As ListBox, ByVal sItem As String) As Long
    For GetStringIndex = 0 To lst.ListCount - 1
        If lst.List(GetStringIndex) = sItem Then Exit Function
    Next
    GetStringIndex = -1
End Function

---

那个会帮助我的人，你刚刚救了我的人！：）谢谢，但“GetStringIndex”不起作用，它表示编译错误：未定义子或函数。你能再帮我一次吗？：）本应由您自己实现，但无论如何，这是完整的工作代码。非常感谢兄弟！）