Like "*Рога*" Or Like "*Справки*" Or Like "*Копыта*" Or Like "*Шапки*"  

VIBORKA = "Like '*Рога*' Or Like '*Справки*' Or Like '*Копыта*' Or Like '*Шапки*'" 

Not Like "*Рога*" And Not Like "*Справки*" And Not Like "*Копыта*" And Not Like "*ШАПКИ*"

  MyFunction() As string

MyFunction = "Like '*Рога*' Or Like '*Справки*' Or Like '*Копыта*' Or Like '*Шапки*'" 

  MyFunction() As string

MyFunction = "Рога"

  MyFunction() As string
Dim переменная  As string
 переменная   = "Рога"
MyFunction = переменная  

    If PAY_VID_NAME = "ЖКХ" And DCount("*", "KTI_GKH_QUE", "KOD_TIPA_IZVESHENIYA = '" & KTI & "'") <> 0 Then

Public Function FUN_NABORI_PAY(PAY_VIDS As String) As Integer
  
  FUN_NABORI_PAY = 0
  
Select Case PAY_VIDS
Case "Рога",  "Справки", "Копыта", "Шапки"
  FUN_NABORI_PAY = 1
Case "Кепки"
  FUN_NABORI_PAY = 2  
Case "Штаны", "Шорты","Треники"
  FUN_NABORI_PAY = 3  
Case Else ' Билеты  Ксерокс
  FUN_NABORI_PAY = 0
End Select

End Function

    Select Case FUN_NABORI_PAY(PAY_VIDS)
    
    Case 1
      True
    Case Else
       False
    End Select