Macro not working properly

I have made a macro for creating a rectangular box. The form comes up and the user has to input the required Height, Width & Depth. Up to this is OK. But when I click apply, a cube gets generated with all dimensions value equaling the height value. Can some check what is the mistake in the code/macro.

TIA.SolidworksApi macros