Horizontal misalignment with ShapeText()

[Machine]

It seems ShapeText() adds extra char(13) before char(10) - Carriage Return Line Feed before Line Feed.
That cause each line to shift to the left, which is visible when centered or adjusted to the right.
Looks like only one function cause that problem.
Also it cause Len() function to return incorrect value due to "doubled" new line.

Small temporary fix:

Code Select Expand

=SUBSTITUTE(SHAPETEXT(Sheet.1!TheText),CHAR(13),"")

Visio 2019
1907 (11901.20176)