How to write a Basic Macro to set Libre calc options View Display Zero values On and Off?

How to write a Basic Macro to set Libre calc options View Display Zero values On and Off?

Do you mean something like this?

Sub ToggleZeroView
Dim oCurrentController As Variant
	oCurrentController = ThisComponent.getCurrentController()
	oCurrentController.ShowZeroValues = Not oCurrentController.ShowZeroValues
End Sub

You are the Man! IOU many thanx.