Вопрос по Select Case

[DENGA-RU]

Всем Доброго дня! Уважаемые специалисты помогите пожалуста в решении вопроса. При написании программы возникла следующая проблема. Если в ячейке стоит значение например "Яблоко" и я пишу Case "Яблоко" - то все отлично работает, а если в ячейки стоит значение "182.10904050.10.2000.110 - Земельный налог" и я напишу Case "*.10904050.*.*.* - *" то программа не обрабатывается и вот отсюда вопрос можно ли как-нибудь обойти данное ограничение ?

[EducatedFool]

можно ли как-нибудь обойти данное ограничение ?

Можно. Но немного не так, как Вы пытались это сделать.
Цитата с msdn.microsoft.com:

В каждом предложении Case можно использовать несколько выражений и диапазонов. Например, допустима следующая строка:

Case 1 To 4, 7 To 9, 11, 13, Is > maxNumber

Используйте зарезервированное слово Is с оператором сравнения (=, <>, <, <=, > или >=) для ограничения возможных значений.

Совместить Case и Like в одной строке в Вашем случае можно только так:

Sub test()
    txt = "182.10904050.10.2000.110 - Земельный налог"
    
    Select Case True
        Case txt Like "*.10444455.*.*": MsgBox "текст 1"
        Case txt Like "*.10904045.*.*": MsgBox "текст 2"
        Case txt Like "*.10904050.*.*.* - *": MsgBox "текст 3"
        Case Else: Debug.Print "error"
    End Select
End Sub

[DENGA-RU]

Большое Вам спасибо!!! Все заработало!