Code:
Sub testFlaeche()Dim Auswahl 'As Selection
Set Auswahl = CATIA.ActiveDocument.Selection
Dim Was(0)
Was(0) = "Face"
Auswahl.Clear
Auswahl.SelectElement2 Was, "Fläche auf 1. Instanz auswählen", True
Dim Objekt1
Set Objekt1 = Auswahl.Item(1).Value
Auswahl.Clear
Auswahl.SelectElement2 Was, "Fläche auf 2. Instanz auswählen", True
Dim Objekt2
Set Objekt2 = Auswahl.Item(1).Value
Auswahl.Clear
Auswahl.Add Objekt1
Auswahl.Clear
Auswahl.Add Objekt2
End Sub