Получение данных из элемента ListBox [РЕШЕНО]

Подскажите пожалуйста, как правильно написать макрос. Из элемента - "ListBox", который получает данные из источника данных (из OOo Base) вставить выбранное значение в ячейку? (функция привязки к ячейки почему-то становится не доступной при работе с источником данных)Макрос: Dim Doc As Object Dim Sheet As Object Dim DrawPage As Object Dim Form As Object Dim Ctl As Object Dim Stroka as String Doc = StarDesktop.CurrentComponent Sheet = Doc.Sheets.GetByIndex(0) Form = Sheet.DrawPage.Forms.GetByIndex(0) Ctl = Form.getByName("ListBox") Stroka = Ctl.getItem() (вот тут почему-то не отрабатывает, видимо пишу неправильно) Cell=Sheet.getCellByPosition(1,1) Cell.String=Stroka Версия OOo 2.3