assign string values to the custom property (shape data)

[Evgeni Braverman]

Hello,
I'nm facing following problem.
I have custom property called Label, and i want programmaticly to
change it by adding running numbers (ii).
I have following code:

'Read the label text
sText = vsoShape.CellsU("Prop.Label").Formula
'Write label text with addition of number
vsoShape.Cells("Prop.Label").FormulaU = "=""" & sText & CStr(ii) &
""""


But what i get is error message:
Runtime error ...
#Name?


I see that sText is at double quotation instead of single one, like:
""my text"" instead of "my text"

it works well when i set sText as constant "my constant text".

So i guess that quotation is the matter.

How can I fix this problem,

Thank you all.