VBA / Excel字符串传递重复值

Question

我有一些VBA代码将数据从用户表单列表框传递到Excel工作表。对于列表框中的每个项目，正在将两个重复项写入工作表。我的错误是什么？感谢。

        S = history_lbx.List(0) 'pass purchase history string back to cell
        Dim k As Variant
        For k = 1 To history_lbx.ListCount
            S = S & ", " & history_lbx.List(k - 1)
        Next k
        Cells(j, 5).Value = S