>I see. Have you tried to refer to GeometricBounds property as an array, e.g. try to set GeometricBounds[1], etc.?
>
>If this would not work, I'm afraid, you would only be able to assign the first value, "6p"

when I changed to this:

*--  Specify the size and shape of the text frame.
*myTextFrame.GeometricBounds = Array("6p0", "6p0", "18p0", "18p0")

myTextFrame.GeometricBounds[1] = "6p0"
myTextFrame.GeometricBounds[2] = "6p0"
myTextFrame.GeometricBounds[3] = "18p0"
myTextFrame.GeometricBounds[4] = "18p0"

I get this error:

OLE IDispath exception code 30477 from InDesing.exe: Invalid value for set property 'GeometricBounds'.  Expected Array of 4 Units (Doubles or String), but received "6p0"