Sub Example_LocaleID()
    ' Этот код восстанавливает локальный ID и отображает его в окне сообщений
    MsgBox "The locale ID is " & ThisDrawing.Application.LocaleId, , "LocaleID Example"
    
End Sub