vba openroads edit corridor objects

When I record a macro and I open corridor objects and change the templatedrop I get the following code.

When I run the code and change the templatedrop ORD only opens the corridor objects window, no further change. (the highlited text doesn't run)

It looks like ORD doesn't reconize the keyin "CIVILMSTN SETPROPERTY"?

Who can help me to edit the corridor objects??

thanks!

Sub BmrCor_ch_template()
    Dim startPoint As Point3d
    Dim point As Point3d, point2 As Point3d
    Dim lngTemp As Long
    Dim oMessage As CadInputMessage

'   Send a keyin that can be a command string
   CadInputQueue.SendKeyin "CORRIDOR OBJECTS OPEN "

'   Coordinates are in master units
    startPoint.X = "132446,79725245997542515397"
    startPoint.Y = "550248,14571063639596104622"
    startPoint.Z = "0,00000000000000000000"

'   Send a data point to the current command
    point.X = startPoint.X
    point.Y = startPoint.Y
    point.Z = startPoint.Z
    CadInputQueue.SendDataPoint point, 1

    CadInputQueue.SendKeyin "CIVILMSTN SETPROPERTY TemplateDrop_Presentation.TemplateName=othertemplate"

    CadInputQueue.SendKeyin "DMSG UPDATEDIALOG -400"

    CommandState.StartDefaultCommand
    
End Sub