VB有道问题，请教一下大神

在两个文本框中输入数字，按旁边的按钮将数值输入到下面得程序中：
Private Sub CommandButton1_Click()

Dim x As Double
Dim y As Double

x = Cdble(TextBox1.Text)
y = Cdble(TextBox2.Text)
Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
swApp.ActiveDoc.ActiveView.FrameState = 1
boolstatus = Part.Extension.SelectByID2("D1@草图1@零件1.SLDPRT", "DIMENSION", -8.507248102561, 1.078399653339, -2.052303135834, False, 0, Nothing, 0)
boolstatus = Part.EditRebuild3
Part.Parameter("D1@草图1").SystemValue = (x / 1000)
boolstatus = Part.Extension.SelectByID2("D1@拉伸1@零件1.SLDPRT", "DIMENSION", 9.470064156315, 2.190198645108, 3.995624625714, False, 0, Nothing, 0)
Part.Parameter("D1@拉伸1").SystemValue = (y / 1000)
boolstatus = Part.EditRebuild3
Part.ClearSelection2 True
End Sub
最后显示，子函数未定义。。。
求大神帮忙啊

Cdble是CDbl，你打错了

好像这个题目发了n次了... '窗体需要一个按钮 private sub command1_click() me.autoredraw = true '窗体重绘,是防止窗体的内容因为最大/小化或者被覆盖后使得窗体上内容没了 dim arry() as integer dim n as integer, i as integer dim max as integer, min as integer, maxflag as integer, minflag as integer max = -32768: min = 32767 '初始值 max为整数最小, min为整数最大 maxflag = 0: minflag = 0 n = int(inputbox("请输入n的值")) redim arry(n) print "数组的初始值:" for i = 0 to n - 1 arry(i) = int(inputbox("请输入第" & i + 1 & "个数:")) print arry(i); '在输入的过程就可以直接将内容打印出来 if arry(i) > max then '同时就记录下当前最大和最小的值及其下标 max = arry(i) maxflag = i end if if arry(i) < min then min = arry(i) minflag = i end if next arry(maxflag) = min '实现交换 arry(minflag) = max print vbcrlf & "交换后数组的值:" for i = 0 to n - 1 print arry(i); next end sub