OpenOffice Basic - переменной не присваивается значение

[Nagoran]

Доброго времени суток. Суть проблемы:
имеется два OpenOffice Cacl. С помощью Basic я беру значение из первой таблицы ищу его во второй таблице, и если находится, то меняю значение ячейки на той же строке, но...
Когда цикл доходит до 20 строки (первое значение из первой таблицы было сравнено со всеми значениями из второй таблицы, т.е. переменная oCall2=""), Basic перестает присваивать значения у переменной oCell2 и дальнейшие сравнения значений происходят с oCall2="". Кто может подсказать решение проблемы?

Sub Main
Dim oCell1 as object
Dim oCell2 as object
Dim oDoc1 as object
Dim oDoc2 as object
Dim f1 as String
Dim f2 as String
Dim I as integer, k as integer
f1="file:///Z:/xxx.ods"
f2="file:///Z:/aaa.ods"
oDoc1=starDeskTop.loadComponentFromURL(f2,"_blank",0, Array())
oDoc2=starDeskTop.loadComponentFromURL(f1,"_blank",0, Array())
i=1
k=1
Do
oCell1=oDoc1.Sheets(0).getCellByPosition(0,i)
if (oCell1.string="") or (oCell1.string="Artikelnummer") then Exit Do
    do
    oCell2=oDoc2.Sheets(0).getCellByPosition(0,k)
     if oCell2.string="" then Exit Do
    if oCell1.string=oCell2.string then 
    oCell2=oDoc2.Sheets(0).getCellByPosition(12,k)
    oCell1=oDoc1.Sheets(0).getCellByPosition(1,i)
    ocell2.String=ocell2.String+ocell1.String
    oCell1=oDoc1.Sheets(0).getCellByPosition(0,i)
    end if
    k=k+1
    loop
i=i+1   
Loop
End Sub