Macro to place TEXT at Shape.CenterX Shape.CenterY point

Hello, everybody
I have solution to place text at centerX centerY point of Shape. 
First I get CenterX and CenterY point of activeshape.

MCenterX = activeshape.CenterX
MCenterY = activeshape.CenterY

Then I type text anywhere at the page - this is a New TextShape

Then i move text to center of shape:

TextShape.CenterX = MCenterX
TextShape.CenterY = MCenterY

So text will be MOVED to center of first selected shape

So event ActiveDocument.MoveShape fires.

My Question is:
Please give me advise how to exclude moving of TEXT to place at center of the shape?

I want to place TEXT at center of shape withot moving text.

Greetings!