How change text of some shape acting on personalized properties of the shape in which they are group

[Mosca]

This is what I do:
1.Create two text shape named Sheet1 e Sheet2
2.Groupe text shape named Sheet1 e Sheet2 in Shape100
3.Define two string personalized properties of Sheet100 named Test1 e
Text2

This what I would like:
1. Create a Macro in Visio VBA on click event of Ok button of Sheet100
personalized properties form in such a way that I can copy value of
personalized properties Sheet100 Text1 and Text2 into text shape named
Sheet1 e Sheet2

Is it possible? If yes, how? Otherwise what's the alternative?

Thanks 1000
Mosca