чем заменить функцию GetOrigin которая "not supported in VB"

[RIMs]

если открыть пустой/новый Part и запустить код vba (см ниже для получения положения осей). Выдает ошибку "function or interface marked as restricted or the function useron Automation type not supported in Visual Basic"
Sub CATMAIN()
Dim productDocument1 As Document
Dim Product1 As Product
Dim Part1 As Part
Dim AxisSystem1 As AxisSystem
Dim Coord1(2)

Set productDocument1 = CATIA.ActiveDocument
Set Selection1 = productDocument1.Selection
Set Part1 = productDocument1.Part
Set AxisSystem1 = Part1.AxisSystems.Item(1)
AxisSystem1.GetOrigin Coord1
End Sub

то бишь я так понимаю vba не поддерживает ряд функций которые могут быть использованы в КАТСкрипт. Есть какие нить функции, которые их заменяют в ВБА? то есть функция для ВБА которая позволит получить координаты точки осей координат?

[Artem]

Код: Выделить всё

Dim productDocument1 'As Document
Dim Product1 'As Product
Dim Part1 'As Part
Dim AxisSystem1 'As AxisSystem
Dim Coord1(2)

а так?

[RIMs]

...неисповедимы пути ВБА

спасибо Артем!