VB中一个程序老是出问题，大侠来帮忙解决下子啊！！！

有一段程序，是在CATIA三维软件中，通过录制宏的功能录制的，这段代码的功能是生成汽车座椅的模型，部分代码如下：
Language="VBSCRIPT"Sub CATMain()Set documents1 = CATIA.DocumentsSet partDocument1 = documents1.Add("Part")Set part1 = partDocument1.PartSet bodies1 = part1.Bodies……（省略）
Set constraints1 = sketch1.ConstraintsSet reference2 = part1.CreateReferenceFromObject(circle2D1)Set constraint1 = constraints1.AddMonoEltCst(catCstTypeRadius, reference2)constraint1.Mode = catCstModeDrivingDimension……
End Sub上面这段代码，在CATIA中能运行，并能生成想要的座椅模型。但是将这段代码复制到VB中，然后添加一个COMMAND 控件，想实现的功能就是，点击COMMAND控件，能在CATIA中完成座椅的建模。代码如下：
Private Sub Command1_Click()Dim CATIA As Object
On Error Resume Next
Set CATIA = GetObject(, "CATIA.Application")
If Err.Number <> 0 Then
Set CATIA = CreateObject("CATIA.Application")
    CATIA.Visible = True
End If
On Error GoTo 0  （上面这几句代码是启动CATIA用的，能正常运行）
Set documents1 = CATIA.DocumentsSet partDocument1 = documents1.Add("Part")Set part1 = partDocument1.PartSet bodies1 = part1.Bodies……（省略）
Set constraints1 = sketch1.ConstraintsSet reference2 = part1.CreateReferenceFromObject(circle2D1)Set constraint1 = constraints1.AddMonoEltCst(catCstTypeRadius, reference2)constraint1.Mode = catCstModeDrivingDimension（这行提示有误，不能运行下去了。）……
End Sub就是运行到上面提示的那行，就会出现问题，我想知道是不是因为没有把 “Sub CATMain()”这句代码加上去的缘故呢？这句代码的作用是什么呢？ 如果需要加上，那么应该怎么加呢？如果不是这个缘故，那么应该怎么解决呢？各路大侠帮帮忙啊。谢谢了。！！！