How to get the annotation scale

Hello. I want to get the annotation scale from an empty model. And I want to use it to set the right level active.

My skil to program in VBA is not very best, so if you want to help me, plaese do

 

Martin