[Resolvido]Botão Abrir Relatorio de uma Caixa de Combinação

Public Function ObterSelecionados(CxList As Control, Numerico As Boolean) As String
  Dim varIndex As Variant
  Dim strSel As String
  Dim intlen As Integer
    If CxList.ItemsSelected.count > 0 Then
        For Each varIndex In CxList.ItemsSelected
            If Numerico = True Then
                strSel = strSel & CxList.ItemData(varIndex) & ","
            Else
                strSel = strSel & "'" & CxList.ItemData(varIndex) & "',"
            End If
        Next varIndex
        intlen = Len(strSel)
        ObterSelecionados = Left(strSel, intlen - 1)
    Else
        ObterSelecionados = ""
    End If
End Function