I need a macro to copy Dimension as integer on the second line of Dimension text. 

Something like this.

23.40 

Assuming that the value of Dim = 23.40

Thank you very much.