Changes in TextStyle Behaviour in VBA

Greetings,

Platform: Microstation Connect Edition Update 14 - Version 10.14.02.01

Sub test()

   Dim oPoint As Point3d
   Dim oTextElement As TextElement
   Dim strText As String
   
   strText = "O"
   
   'oPoint.X = 603957.7972
   'oPoint.Y = 4832698.6756
   
   
   oPoint.X = -8871614
   oPoint.Y = 5397811.5
   
   CadInputQueue.SendKeyin "tw=6"
   CadInputQueue.SendKeyin "th=6"
   Set oTextElement = CreateTextElement1(Nothing, strText, oPoint, Matrix3dIdentity)
   'oTextElement.TextStyle.Height = 4
   'oTextElement.TextStyle.Width = 4
   'oTextElement.ScaleUniform oPoint, 2.66666666666667
   ActiveModelReference.AddElement oTextElement
   
End Sub

When executing this code, in V8i, setting the TextStyle.Height and .Width, the text being modified scales about the Center-Center justification point.  In Connect, it changes the origin of the text when changing the Height and Width.  If you either scale the text element after creation or manually set Height and Width before placement, it works as expected.  I don't know if this is a bug or works as designed.  I thought I would point it out for review and possible correction.  I am working around it using different code.

Thanks.