VBA CorelScript

Hello,
I ask for VBA / CorelScript code that return me SizeHight and SizeWidth of active object / current selected object
Greetings!