Изменить цвет созданной плоскости

Я делаю скрипт, который создает самолеты. И я хочу добавить собственный цвет для этих самолетов. Для этого я использую метод Selection.Search. Но я получаю сообщение об ошибке: «Невозможно использовать круглые скобки при вызове Sub».

Sub CATMain()

Dim Part as PartDocument
Set Part = CATIA.ActiveDocument.Part 
LengthDimension = 150
Set ReferenceGeom = Part.HybridBodies.Item("Skeleton").HybridBodies.Item("2. Reference geometry")
   Part.InWorkObject = ReferenceGeom

   For i = 1 to 2
      Call AddPlane(ReferenceGeom, Part, "ZX", LengthDimension, i, i)
   Next

   For j = 1 to 2
      Call AddPlane(ReferenceGeom, Part, "YZ", LengthDimension, j, j + 2)
   Next

   For k = 1 to 2
      Call AddPlane(ReferenceGeom, Part, "XY", LengthDimension, k, k + 4)
   Next

End Sub

Sub AddPlane(PointGeomSet As HybridBody, RefPart As PartDocument, Plane As String, PlaneOffset As Real, j, n As Integers)
   PlaneName = n & ". " & PlaneNamesArr(n - 1)

   .... Code to create planes (worked good)

   Set Sel = CATIA.ActiveDocument.Selection
   Sel.Search("Name=" & PlaneName & "*,all")
   Set PlaneColor = Sel.VisProperties
   PlaneColor.SetRealColor(0, 255, 0, 0) <- Here I got an error
   Sel.Clear

End Sub

Или, может быть, есть другой способ изменить цвет самолета?