Debug.Print spisoc.ItemData(7)

End Sub

Форма используется из примера, рассмотренного выше.

Результат работы: