Dim aPicker As com.sun.star.ui.dialogs.XFilePicker

aPicker.getDisplayDirectory()

Dim intVar as Integer

Sub Some_Calc_UNO_Types

REM A spreadsheet object

    Dim oSheet As com.sun.star.sheet.XSpreadsheet

    oSheet = ThisComponent.getSheets().getByIndex(0)

REM A cell object

    Dim oCell As com.sun.star.table.XCell

    oCell = oSheet.getCellByPosition(0,0)

End Sub