Настроенный макрос CATIA V5 для просмотра файла координат Excel и точек графика

Пожалуйста, примите во внимание мои ограниченные знания в CATIA VBA. У меня возникли некоторые трудности с настройкой макроса CATIA V5 для поиска координатных точек Excel и построения их в CATIA, и все это с помощью щелчка на настроенном значке CATIA.

1. У меня есть файл Excel со многими координатами XYZ, назовем его ExcelP1 (в файле excel нет сценариев/макросов), я хотел бы разработать макрос в CATIA для чтения и построения точек из ExcelP1.

2. В настоящее время у меня есть еще один «файл Excel с макросом» для просмотра ExcelP1 и построения точек в CATIA. Но мне нужно сначала открыть и запустить «файл Excel с макросом», чтобы запустить CATIA. Сценарии приведены ниже (я не разрабатывал это)

   Public Filename As String
   Private Sub Browse_Click()
       'Open File
           Mainform.Hide
           Filename = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
           If Filename <> "False" Then
               Application.Visible = False
               filenamebox.Value = Filename
           Else
               Application.Visible = False
               Filename = filenamebox.Value
           End If
           Mainform.Show
       End Sub
   
       Private Sub ClearButton_Click()
           Mainform.Hide
           ActiveWorkbook.Close (False)
           Application.Visible = False
       End Sub
   
       Private Sub OKButton_Click()
       'Set Up Message Labels
           Title = "Information Message"
       'Check for Entered Values
           If filenamebox.Value <> "" Then
               Workbooks.Open Filename:=Filename
               Application.Visible = False
       'Start CATIA and add an Open body to the document
               Start_CATIA
               Mainform.Hide
       'Read Point Data from file and create point in CATIA
               i = 2
               Do Until Worksheets("Sheet1").Range("a" & i).Value = ""
                   x = Worksheets("Sheet1").Range("a" & i).Value
                   y = Worksheets("Sheet1").Range("b" & i).Value
                   z = Worksheets("Sheet1").Range("c" & i).Value
                   Create_Point
                   i = i + 1
               Loop
               i = i - 2
               MsgBox i & " Points Created in New Part", , Title
           Else
               MsgBox "Enter a Filename", , Title
           End If
           ActiveWorkbook.Close (False)
           Mainform.Show
       End Sub
   
       Private Sub UserForm_Initialize()
           If Worksheets("Filepath_Location").Range("a1").Value <> "" Then
               Filename = Worksheets("Filepath_Location").Range("a1").Value
               filenamebox.Value = Filename
           End If
       End Sub
   

Что мне нужно добавить/изменить, чтобы скрипты запускались в CATIA?