>Strange error... But anyway, looks like you're out of luck :(
>
>>acopy gives error
>>
>>

>>Feature is not available.
>>

>>
>>>Last try:
>>>

>>>dimension myArray[4]
>>>myArray[1] = "6p0"
>>>myArray[2] = "6p"
>>>myArray[3] = "24p"
>>>myArray[4] = "24p"
>>>
>>>acopy(myArray, myTextFrame.GeometricBounds)

"Out of luck" translates into "seems like you need to write a VB wrapper" - the last resort.