Private Sub CBo3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Me.CBo3.MatchFound = False Then
        MsgBox "月の入力が正しくありません", vbExclamation, "入力エラー"
        CBo3.Value = Empty
        Cancel = True
        Exit Sub
    End If