Sub CATMain()
dim mybodies
set mybodies=catia.activedocument.part.bodies
dim vis
set vis = mybodies.add
vis.name="Vis"
End Sub