Dim TCS As CSDN.TCS
Dim App As CSDN.Tcs_Application
Sub SetFilter()
    Dim Filter As CSDN.IFilter2
    Dim UserName As String
    Dim I As Integer
    
    Call Login
    
    Set Filter = App.Users.Filter
    
    Call Filter.ClearFilter
    
    UserName = App.InputBox("Ввод значения", "Введите начальные буквы из имени пользователя:", "")
      
    Call Filter.NewFilterItem(App.Users.Properties("NAME"), fkSTARTING, UserName)
      
    Call Filter.ApplyFilter
      
    I = App.Users.ShowModal("Убедимся что фильтр работает")
    
End Sub
Sub Login()
    
    If TCS Is Nothing Then Set TCS = CreateObject("CSDN.TCS")
    
    If App Is Nothing Then Set App = TCS.Login 
    
End Sub