When I run the macro with
slideObject.Shapes.Title.TextFrame.TextRange.Text = "نوشته من"
It displays a text with weird characters.