Create Level

I have a macro that reads xls files (A2: A15) and creates layers in dgn.
macro works, I see the layers created. I close and reopen Microstatio and levels have disappeared.
any idea
I enclose , dgn file , xls , macro, movie

to  run the macro change inside the file path xls