用户窗体 ListBox - 如何向工作表中的一个单元格添加多个选择

问：

下面的代码在将用户表单条目保存到工作表时非常有效。

我在用户窗体中添加了两个并排命名的多选列表框：lstShipLeft 和 lstShipRight。lstShipLeft 填充了四个装运阶段。完成每个阶段后，用户选择该阶段，单击一个按钮，该阶段将移动到 lstShipRight 列表框。当用户保存订单时，我希望将 lstShipRight 中的选择保存到一个单元格中的工作表中。

下面的行（第 77 列）有效，只是它只显示工作簿中选择的第一个项目，它不会显示所有选定的项目。

有没有办法显示所有选定的项目并用逗号分隔每个项目？

Private Sub cmbSave_Click()
Dim Shop_Order_Number As String
Shop_Order_Number = Trim(txtShopOrdNum)
Dim orderTable As ListObject 
Set orderTable = Worksheets("Master").ListObjects("tblMaster")
Dim matchRow
matchRow = Application.Match(Shop_Order_Number, orderTable.ListColumns("SHOP ORDER NUMBER").DataBodyRange, 0)
If Not IsError(matchRow) Then
    With orderTable.ListRows(matchRow)
        .Range(1, 1).Value = txtPrefix
        .Range(1, 2).Value = cboStatus
        .Range(1, 3).Value = txtSuffix
        'redacted code
        enter code here
        .Range(1, 76).Value = cboRecRev
        .Range(1, 77).Value = lstShipRight.List(lstShipRight.ListIndex)
        .Range(1, 78).Value = GetDate(Me.txtShipped.Value)
        .Range(1, 79).Value = cboName
        'redacted code
End With
End If
End Sub