Incluir/Substituir valor em uma cécula - Basic

Bom dia Pessoal!
Vocês já me ajudaram uma vez e estou precisando de novo de vocês.

Estou precisando incluir uma string em uma célula se uma condição for atendida, qual a função para incluir ou substituir o valor de uma célula no Basic?

Um exemplo do que eu quero:

If ThisComponent.Sheets(0).getCellRangebyName(X).string = 31 then
ThisComponent.Sheets(2).getCellRangebyName(Y).string = "IMPAR" 'Essa atribuição, como faço? Eu sei atribuir um valor a uma variável mas não a uma célula'
Else
ThisComponent.Sheets(2).getCellRangebyName(Y).string = "PAR"

Seu comando está correto, modifique apenas as letras “X” e “Y” pela a referência da célula, por exemplo: “A1” e “B1”, e quando você tratar números utilize Value.
Segue:

Sub Incluir()
If ThisComponent.Sheets(0).getCellRangebyName("A1").Value = 31 then
ThisComponent.Sheets(2).getCellRangebyName("B1").string = "IMPAR" 'Essa atribuição, como faço? Eu sei atribuir um        valor a uma variável mas não a uma célula'
Else
ThisComponent.Sheets(2).getCellRangebyName("B1").string = "PAR"
End If
End Sub

Instale a macro XRAY para inspecionar todos os objetos da API do LibreOffice. Baixe deste site: http://berma.pagesperso-orange.fr/index2.html . abra o arquivo e execute o instalador onde indicado.

obs… não sou nada em Basic sem esta macro. Incontornável para qualquer programador de macros.