VBA如果未选择任何内容则显示消息列表框多选

Sub ShowMultiSelectListBox()
    Dim selectedItems As String
    Dim i As Integer
    
    With Application
        ' 创建一个消息列表框多选
        selectedItems = .InputBox("请选择以下选项（按住Ctrl键进行多选）:", "消息列表框多选", , , , , , 8)
    End With
    
    ' 判断用户是否进行了选择
    If selectedItems = "" Then
        MsgBox "您未选择任何内容！", vbInformation, "提示"
    Else
        ' 将选择的选项拼接成字符串
        For i = 1 To Len(selectedItems)
            If Mid(selectedItems, i, 1) = "," Then
                selectedItems = Left(selectedItems, i - 1) & vbCrLf & Mid(selectedItems, i + 1)
            End If
        Next i
        
        ' 显示选择的选项
        MsgBox "您选择的内容如下：" & vbCrLf & selectedItems, vbInformation, "选择结果"
    End If
End Sub