Como cargar este comboboxt en openoficce

Sub Cargar()
Dim oHoja as object, Cel as object, oCombo as object, i As Long
oHoja = ThisComponent.Sheets(0)
oCombo = oinventario.getControl("ComboBox1")
i = 1
For i = 1 to 5
Cel = oHoja.getCellbyPosition(1,i+1)
oCombo.Additem(Cel.getformula,i-1)
Next
End Sub