Changing text properties using Macro

Hello,

I am trying to create a VBA macro that will set up some of the Text Shape properties. Please see the attached code below.

Dim my_object As Shape
For Each my_object In ActiveSelectionRange.Shapes
    If my_object.Type = cdrTextShape Then        
        my_object.Style.Character.Style.SetProperty "kern", 1
        my_object.Style.Character.Style.SetProperty "lnum", 1
        my_object.Style.Character.Style.SetProperty "onum", 0
        my_object.Style.Character.Style.SetProperty "palt", 1
        my_object.Style.Character.Style.SetProperty "pnum", 1
        my_object.Style.Character.Style.SetProperty "tnum", 0
    
        MsgBox my_object.Style.Character.Style.GetPropertyAsString("kern") & " " & _
            my_object.Style.Character.Style.GetPropertyAsString("lnum") & " " & _
            my_object.Style.Character.Style.GetPropertyAsString("onum") & " " & _
            my_object.Style.Character.Style.GetPropertyAsString("palt") & " " & _
            my_object.Style.Character.Style.GetPropertyAsString("pnum") & " " & _
            my_object.Style.Character.Style.GetPropertyAsString("tnum")
    End If
Next my_object

It still outputs "1 0 0 1 0 0", no matter what I assign. Any idea how to properly set Paragraph properties?

Regards, Paul