[quote user="kamil"]I guess wrong I use your code[/quote]
I copied Martin's code and it works for me.
Some clarification: two MicroStation VBA modules are needed in your VBA project...
- A class module named Ident
- A normal code module (can have any name)
Copy Martin's class code (everything after Option Explicit) into your module named Ident.
Copy Martin's Sub start to the normal module.
To run the code, key-in vba run start