Pessoal, consegui um grande avanço, agora é questão de paciência para chegar onde quero, vejam.
Sub Teste
sText = InputBox ("Enter the name of the new Income Source")
Doc = ThisComponent
Sheets = Doc.getSheets 'get the collection of Sheets
Sheet = Sheets.GetByName("Folha1") 'get the specific Sheet
Cell = Sheet.getCellRangeByName("A1") 'Get the named Cell
Cell.String = sText
If sText > ("50") then
MsgBox "Texto é maior que 50"
ElseIf sText < ("50") then
MsgBox "Texto é menor que 50"
Else
MsgBox "O texto é 50 exatamente"
end if
end sub
Rodando essa macro aparece uma caixa para eu botar um determinado valor, se coloco qualquer coisa abaixo de 50 ele aparece a mensagem “Texto é menor que 50”, se coloco 50 exatamente aparece uma caixa dizendo “O texto é 50 exatamente” e se coloco qualquer valor maior que 50 nessa caixa ele aparece que o valor é maior!
Agora basta trocar essas condições para os valores exatos e colocar para carregar uma determinada imagem sempre que for alterado, depois só associar a macro para rodar sempre que uma cédula específica for alterada e sucesso.
Se alguém quiser ajudar na empreitada eu aceito!