Handling von einem CATIA Tool Button

Hallo zusammen,

ich brauche ein VBA Makro, mit dem ich eine Reihe an STL Dateien in CATPart konvertieren kann. Das Makro arbeitet mit findWindow und findWindowEx.
Mein Makro funktioniert auch bis jetzt.

Nun muss ich aber eine neue Funktion hinzufügen, bei dem das Part mit dem CATIA Tool "Mesh Cleaner" gereinigt wird (Tool: s.Bild). Dafür brauche ich die Handling von dem Button(Analyze) und CheckBox(Non-manifold Vertices). Leider bin ich da nicht fündig geworden.



Ich habe auch schon mal die Funktion mit den Lücken programmiert, mir fehlen wirklich nur noch die Namen.

Folgendermaßen sieht mein Code aus:

Set selection = CATIA.ActiveDocument.selection
        
        'selection.Clear
        
        selection.Search ("Name=0.0*,all")
        
        Sleep 1000
        
        'Mesh Cleaner ausführen
    
        CATIA.StartCommand "Mesh Cleaner"
        Sleep 500
        
        hmeshcleaner = FindWindow("#32770", "Mesh Cleaner")

        While hTabButtonCleaner = 0
        hTabButtonCleaner = FindWindowEx(hmeshcleaner, 0, vbNullString, "?")      '?
        Wend
        
        While hAnalyzeButtonCleaner = 0
        hAnalyzeButtonCleaner = FindWindowEx(hTabButtonCleaner, 0, "Button", "?")    '?
        Wend
            SendMessage hAnalyzeButtonCleaner, BM_CLICK, 0, 0
        Sleep 1000
        
        While hCBButtonCleaner
        hCBButtonCleaner = FindWindowEx(hmeshcleaner, 0, "Check-Box", "?")    '?
        Wend
            SendMessage hCBButtonCleaner, BM_CLICK, 0, 0
        Sleep 1000
  
        While hApplyButtonCleaner
        hApplyButtonCleaner = FindWindowEx(hmeshcleaner, 0, "Button", "Apply")
        Wend
            SendMessage hApplyButtonCleaner, BM_CLICK, 0, 0
        Sleep 1000
        
        hOKButtonCleaner = FindWindowEx(hmeshcleaner, 0, "Button", "OK")
            SendMessage hOKButtonCleaner, BM_CLICK, 0, 0
        Sleep 1000