Aiuto con le macro in OO calc!!

[Federimi]

ciao ragazzi avevo bisogno di un aiuto.
devo convertire delle macro di excel in modo tale da farle funzionare su openoffice calc. la funzione in formato visual basic è questa:

Modulo 1

Function FormatBase5(thisNumber)
Dim Myresto As Integer
Dim tmpResult As Integer
Myresto = thisNumber Mod 5
If Myresto > 2 Then
tmpResult = thisNumber + (5 - Myresto)
Else
tmpResult = thisNumber - Myresto
End If
FormatBase5 = tmpResult
End Function

come posso fare?
grazie