AutoCAD Inventor :: PutLineSegmentData Is Not Seemingly Working

The second sub (NormalTest) below creates the ClientGraphic and the first sub (NormalTest_MagnitdureChange) attempts to lengthen the associated LineSegment in the Y direction so you must select a face along the XZ plane so the before running the second sub so that the line segment runs only in the Y direction.  That said, when I run the first sub its 2 MsgBox display the before and after coordinates which does display the ending points Y coordinate doubled but graphically there's no change.  If you run the first sub again you'll get the same results meaning the double length did not take the first time this sub was run even though oLineSegment.EndPoint.Y has changed according to the after MsgBox from the previous executing of the first sub. 

Public Sub NormalTest_MagnitudeChange() Dim oPartDocument As PartDocument Dim oFace As Face Dim oClientGraphics As ClientGraphics Dim oSurfaceEvaluator As SurfaceEvaluator Dim adPoint(2) As Double Dim adParams(1) As Double Dim adGuessParams() As Double Dim adMaxDeviations() As Double Dim aoSolutionNatureEnum() As SolutionNatureEnum Dim adNormals(2) As Double Dim oVector_Normal As Vector Dim oLineSegment As LineSegment Dim oPoint_Normal As Point Dim oGraphicsNode_CurveGraphics As GraphicsNode Dim oCurveGraphics As
[code]....