VBA Macro problem dimension

asking for help


I want the x point in making the circle to be -1, but why does it always read 0 when the result is finished?
I want the result to be 13 from the edge, but it is always 14. Is there something wrong with my program?
and the diameter is 10.5mm but input radius is 6.5

' Setting SolidWorks variable to SolidWorks application
   Set swApp = Application.SldWorks
   ' Creating new part document
   defaultTemplate = swApp.GetUserPreferenceStringValue(swUserPreferenceStringValue_e.swDefaultTemplatePart)
   Set swDoc = swApp.NewDocument(defaultTemplate, 0, 0, 0)
   ' Select Front Plane
   boolStatus = swDoc.Extension.SelectByID2("Top Plane", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
   ' Setting Sketch Manager
   Set swSketchManager = swDoc.SketchManager
   ' Insert a new sketch
   swSketchManager.InsertSketch True
   ' Create a rectangle
   Set mySketchSegment = swSketchManager.CreateCircleByRadius((-1 / 1000), ((1 / 2 * panjang) - D2) / 1000, 0, C9 / 1000)
   boolStatus = swSketchManager.CreateLinearSketchStepAndRepeat(1, 2, 0, (panjang - D4) / 1000, 0, 4.7123889803847, "", False, False, False, True, True)

   vSketchLines = swSketchManager.Create3PointCenterRectangle(0, 0, 0, ((W5 / 2) / 1000), 0, 0, 0, (((panjang / 2)) / 1000), 0)
   ' Exit sketch mode
   swSketchManager.InsertSketch False
   ' Perform Extrude
   Set swFeatureManager = swDoc.FeatureManager
   boolStatus = swDoc.Extension.SelectByID2("Sketch1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
   swFeatureManager.FeatureExtrusion2 True, False, False, 0, 0, TC / 1000, 0, False, False, False, False, _
                                       0, 0, False, False, False, False, True, True, True, 0, 0, False
W5=25
Panjang=150
D2=47
D4=94
C9=6.5
' mm
 

Thankyou