shaft programming.......

i have program 2 shaft with different diameter..............when i insert data for example 6m to the shaft1 the shaft is showthe correct diameter.........but the problem is the 2nd diameter isnot show the 6m diameter.....the shaft will show 6.8m.......here ismy code....


Private Sub cmdPapar_Click()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
swApp.ActiveDoc.ActiveView.FrameState = 1
Part.ClearSelection2 True
Dim SkCircle As Object
Set SkCircle = Part.SketchManager.CreateCircle(0, 0, 0, txt1.Text,5.605184485944E-04, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0,0, 0, False, 0, Nothing, 0)
Part.FeatureManager.FeatureExtrusion2 True, False, False, 0, 0,txt2.Text, txt2.Text, False, False, False, False, 0.01745329251994,0.01745329251994, False, False, False, False, 1, 1, 1, 0, 0, False
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection2 True
Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
swApp.ActiveDoc.ActiveView.FrameState = 1
Set SkCircle = Part.SketchManager.CreateCircle(0, 0, 0, txt3.Text,-1.244946376429, 0)
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0,0, 0, False, 0, Nothing, 0)
Part.FeatureManager.FeatureExtrusion True, False, True, 0, 0,txt4.Text, txt4.Text, False, False, False, False, 0.01745329251994,0.01745329251994, False, False, False, False, 1, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection2 True

end subSolidworksApi macros