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

'Изменить значение атрибута, посмотреть время изменения объекта
'и пользователя, сделавшего изменения
ThisObject.Attributes(0).Value = 0
MsgBox ThisObject.ModifyTime & Chr(13) & ThisApplication.CurrentTime
MsgBox ThisObject.ModifyUser.Description