Исходный код

Option Explicit
Call GetGroups()

'==============================================================================
'Дать возможность выбора группы и сообщить, сколько пользователей в ней
'==============================================================================
Sub GetGroups()
        Dim SelDlg, RetVal, grp, strInfo
        
        'Открыть диалог SelectDlg и задать ему в качестве источника данных коллекцию
        'групп пользователей
        Set SelDlg = ThisApplication.Dialogs.SelectDlg
        SelDlg.SelectFrom = ThisApplication.Groups
        SelDlg.Caption = "Выбор группы пользователей"
        SelDlg.Prompt = "Выберите одну или несколько групп:"
        RetVal = SelDlg.Show
        
        'Если был сделан выбор, вывести на экран суммарную информацию
        'Внимание: этот диалог возвращает коллекцию того же типа, что была на входе,
        'т.е. в данном случае - TDMSGroups, причем в свойстве "Objects". Свойство
        'ObjectsArray не возвращает ничего.
        If RetVal <> FALSE And SelDlg.Objects.Count <> 0 Then
                For Each grp In SelDlg.Objects
                        strInfo = strInfo & grp.Description & ": " & grp.Users.Count & Chr(13)
                Next
                Msgbox "В группах зарегистрировано пользователей: " & Chr(13) & strInfo, _
                            vbInformation, "Информация о группах пользователей"
        End If
        
End Sub
'==============================================================================