Sub Main()

Dim CATIA As Object
On Error Resume Next
Set CATIA = GetObject(, "CATIA.Application")
If Err.Number <> 0 Then
    Set CATIA = CreateObject("CATIA.Application")
    CATIA.Visible = True
End If

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

'Dim selection1 As Selection ' auskommetieren um Fehlermeldung zu vermeiden
Set selection1 = partDocument1.Selection

Dim sFilter(0)
sFilter(0) = "Bodies"
selection1.SelectElement (sFilter), "bitte auswählen", True

Dim oSelElem As AnyObject
Set oSelElem = selection1.Item(1)

Set extract = oSelElem.Value

MsgBox "Die gewählte Fläche heisst :" & extract.Name

End Sub