Type mismatch!!

Denne kode virkede til at begynde med, nu får jeg fejlmeddelelsen Type mismatch. Er der en der kan se hvad jeg har gjort forkert ?

Private Sub bntUdskriv_Click()
On Error GoTo Err_bntUdskriv_Click
     
Select Case Me!Gruppebox
  Case 1
    If (IsNull(Me!cmbType)) Or (Me!cmbType = "") Then
    MsgBox "Der SKAL vælges liste til udskrift", vbOKOnly
    Me.cmbType.SetFocus
    Else
    If MsgBox("Vil du printe etiketter" & vbNewLine & "Husk at lægge ark med etiketter i printeren", vbYesNo) = vbYes Then
    DoCmd.OpenReport "[Etiket_C2180]", acViewPreview
    DoCmd.Maximize
    End If
    End If
  Case 2
  If (IsNull(Me!cmbType)) Or (Me!cmbType = "") Then
    MsgBox "Der SKAL vælges liste til udskrift", vbOKOnly
    Me.cmbType.SetFocus
    Else
  If MsgBox("Vil du printe kuverter" & vbNewLine & "Husk at lægge kuverter, str. M65, i printeren", vbYesNo) = vbYes Then
    DoCmd.PrintOut "[Kuvert-M65]", acViewNormal
    End If
    End If
  Case 3
  If (IsNull(Me!cmbType)) Or (Me!cmbType = "") Then
    MsgBox "Der SKAL vælges liste til udskrift", vbOKOnly
    Me.cmbType.SetFocus
  If MsgBox("Vil du printe kuverter" & vbNewLine & "Husk at lægge kuverter, str. C4, i printeren", vbYesNo) = vbYes Then
    DoCmd.PrintOut "[Kuvert-C4]", acViewNormal
    End If
    End If

End Select

Exit_bntUdskriv_Click:
    Exit Sub

Err_bntUdskriv_Click:
    MsgBox Err.Description
    Resume Exit_bntUdskriv_Click

End Sub