Combobox na Ribbon IDBE RibbonCreator 2016

Boa noite, Sou novo em vba, estou com dificuldade na construção do código para realizar a chamada de relatório via combobox, criada no IDBE RibbonCreator 2016, tentei algumas possibilidade com estrutura de "Case" mais não funcionaou.

Tenho a seguinte estrutu na modulo basRibbonCallbacks

Código:

Sub OnChangeComboBox(control As IRibbonControl, _
                                strText As String)
    
    ' Callbackname im XML File "OnChangeCombobox"
    ' Callback onChange (Combobox)
     Select Case control.id
     Case Is = "cmb1"
        Case cmb1Item0
            DoCmd.OpenReport "Relatorio1", acViewReport, "", "", acNormal
    
        Case cmb1Item1
            DoCmd.OpenReport "Relatorio2", acViewReport, "", "", acNormal
    
        Case cmb1Item2
            DoCmd.OpenReport "Relatorio3", acViewReport, "", "", acNormal
        
    Case Else
        MsgBox "The selected Item of Combobox-Control """ & control.id & """ is : """ & strText & """" & vbCrLf & _
                   "Das selektierte Item des Combobox-Control """ & control.id & """ ist : """ & strText & """", _
                   vbInformation
    End Select

End Sub

Gostaria de ajuda no sentido colocar pra funcaionar

Boa tarde.
Tem que está Case Is= em todos

Caso é/exista no Bd
Case Is= "item1"
   Abre-se o relatório
   DoCmd.OpenReport  

Caso é/exista no Bd
Case Is=" item2
    Abre-se o relatório
   DoCmd.OpenReport