OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

Dobrý den,
potřeboval bych pomoci s kouskem programu. Nejsem v programovani v open office vasicu moc zběhlý tak to asi pro většinu bude triviální věc.
Tento kousek programu by měl zjištovat kolik je v dokumentu popsaných řádků.Tento kod jsem předělával z visual basicu.

pom = 6
document = ThisComponent
Sheet = document.Sheets("List1")
Cell = Sheet.getCellByPosition(2, pom)
While Cell <> ""
Cell = Sheet.getCellByPosition(2, pom + 1)
Wend

pom = pom - 1

Porovnávám zde z listu1 hodnoty z buněk ve kterých jsou nadafinované hodnoty které poté chci porovnat a zjistit zda není prázdný řádek("").

Předem děkuji za pomoc

S pozdravem Libor