BoundingBox in Visio 2003 returns wrong results?

[VitalyZ]

Hello,

I am using the following commands to get the bounding box of the selection
of shapes on the page:

1. oSelectionVisibleShapes.BoundingBox visBBoxUprightWH, dAllLeftMostX,
dAllBottomMostY, dAllRightMostX, dAllTopMostY

2. oSelectionVisibleShapes.BoundingBox visBBoxExtents, dAllLeftMostX,
dAllBottomMostY, dAllRightMostX, dAllTopMostY

3. oSelectionVisibleShapes.BoundingBox visBBoxUprightText,
dAllLeftMostX, dAllBottomMostY, dAllRightMostX, dAllTopMostY

Command 1. works fine all the time.
Commands 2 & 3 work fine in Visio 2002, but in Visio 2003 they
intermittently return bad results (HUGE numbers, ex. 3.41950402455679E+154
for dAllRightMostX)

If I combine these commands into one:

oSelectionVisibleShapes.BoundingBox visBBoxUprightWH + visBBoxExtents +
visBBoxUprightText, dAllLeftMostX, dAllBottomMostY, dAllRightMostX,
dAllTopMostY

the same bad result is returned.

Anybody has any idea, what is wrong?

Thank you very much for your help,
Vitaly