Sub CATMain()


CATIA.SystemService.ExecuteBackgroundProcessus ("D:\Catia_V5_lokal\Strukturbaum")


End Sub