VBA Merge Reference along with Dimension Object

Hi All,

I want to Merge a reference file into the Default Model and I tried the sample code already available in the link given below. But in case of dimension, the output was produced in a different scale. Please refer the attached screenshot.

https://communities.bentley.com/products/programming/microstation_programming/f/343173/p/89072/252943.aspx