Dim TCS As CSDN.TCS
Dim App As CSDN.Tcs_Application
Sub SetFilter()
    Dim Filter As CSDN.Filter
    Dim FilterItem As CSDN.FilterItem
    Dim UserName As String
    Dim I As Integer
    
    Call Login
    
    Set Filter = App.Users.Filter
    
    'сделаем неактивным
    For I = 0 To Filter.Count - 1
        Filter.Items(I).Active = False
    Next I
    
    UserName = InputBox("Введите начальные буквы из имени пользователя:")
      
    Set FilterItem = Filter.Add(App.Users.Properties("NAME"))
    FilterItem.FilterKind = fkSTARTING
    FilterItem.Condition = UserName
    
    FilterItem.Active = True
    Filter.Active = True
    App.Users.Refresh
    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