How to get the current view zoom extends Coordinates?

Dear All,

                I am working with Microstation v8 2004 Edition with the VBA. I need to place the rectangle of the current view zoom extends. for clear understanding please refer the below image.

In this image yellow color shape is my expected output.

Please any one give me a reference for how to do this requirement.

Thanks & Regards,

Karthik M