用VB语言编的三维模型SolidWorks不执行，已经引用SolidWorks类型库

Private Sub Command2_Click()
 boolstatus = Part.Extension.SelectBylD2("前视", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
 Part.SketchManager.InsertSketch True
 Part.ClearSelection2 True
 Dim skSegment As Object
 Set skSegment = Part.SketchManager.CreateCircle(0#, 0#, 0#, Val(Text1.Text) / 2000, 0, 0#)
 Part.ShowNamedView2 "*上下二等角轴测", 8
 boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, False, 0, Nothing, 0)
 Dim myFeature As Object
 Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, Val(Text2.Text) / 1000, 0, False, False, False, False, 0, 0, False, False, False, False, True, True, True, 0, 0, False)
 Part.SelectionManager.EnableContourSelection = False
End Sub
这是solidworks执行生成圆柱的语句，但是提醒第一句就有错误，怎么回事啊   大哥