Исходный текст

Option Explicit
Call ShowContainersInfo(ThisObject)

'==============================================================================
' Вывести описание всех контейнеров данного объекта
'==============================================================================
Sub ShowContainersInfo(Obj)
        Dim Containers, strInfo, UpObj
            
        'Получить ссылку на коллецию контейнеров объекта
        Set Containers = ThisObject.Uplinks
        
        'Если коллекция пустая, закончить работу
        If Containers.Count=0 Then
                MsgBox "Объект не имеет контейнеров."
                Exit Sub
        End If
        
        'Перечислить все контейнеры
        For Each UpObj In Containers
            strInfo = strInfo & UpObj.Description & Chr(13)
        Next
        
        'Вывести информацию в окно сообщений
        ThisApplication.AddNotify "Контейнеры объекта " & Obj.Description & ":"_
                     & """" & Chr(13) & "(всего : " & Containers.Count & ")"

        ThisApplication.AddNotify strInfo
End Sub
'==============================================================================