Debug.Print spisoc.ItemData(7) End Sub Форма используется из примера, рассмотренного выше. Результат работы: