Catia V5:

Dim MyDocument As Document
Dim MyPart as Part

Set MyDocument = CATIA.ActiveDocument
Set MyPart = MyDocument.Part

Catia V6 EXPERIENCE:

Dim MyDocument As Editor
Dim MyPart as Part

Set MyEditor = CATIA.ActiveEditor
Set MyPart = MyEditor.ActiveObject