Sub CATMain()

    'Autor:     Daniel Frauenrath
    'Datum:     31.07.2012
    'Version:   1.0.0
    'Rechte:    Verändern, verteilen, etc. ---free---
    'für:       CAD.de

    'Deklarationen
    Dim CATApp' As Application
    Dim objSysService' As SystemService
    Dim strUserSettingPath' As String
    Dim vbMsgBoxRes' As VbMsgBoxResult
    Dim douPIDExplorer' As Double
    Dim strPath' As String
    Dim objShell' As Object
      
    'Instanzierung der Objekte
    Set CATApp = CATIA.Application
    Set objSysService = CATApp.SystemService
    
    'Auslesen der User-Setting Variable aus dem Environment
    strUserSettingPath = objSysService.Environ("CATUserSettingPath")
    
    'Plausibilitätsprüfung des Pfades
    If strUserSettingPath = "" Then
        MsgBox "Der Pfad zu den User-Settings kann nicht gelesen werden!", vbCritical, "Fehler beim Lesen"
    Else
        vbMsgBoxRes = MsgBox("Der Pfad zu den User-Settings wurde erfolgreich gelesen" + vbNewLine + vbNewLine + _
                "Pfad:" & strUserSettingPath + vbNewLine + vbNewLine + _
                "Wollen Sie den Pfad oeffnen?", vbInformation + vbYesNo, "Pfad erfolgreich gelesen")
    End If
     
    'Pfad im Explorer öffnen
    If vbMsgBoxRes = vbYes Then
        Set objShell = CreateObject("Wscript.Shell")
        strPath = "explorer.exe /e," & strUserSettingPath
        objShell.Run strPath
    End If

End Sub