关于用VB,该怎么解决

关于用VB
Dim Coordinates1(2)
  Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
  Set reference1 = oPart.FindObjectByName("点1")
  Set measureObj = TheSPAWorkbench.GetMeasurable(reference1)
  measureObj.GetPoint Coordinates1

[解决办法]
问题呢？