Option explicit
Language = "VBSCRIPT"

Sub CATMain()
	
	MsgBox "Verzeichnis(se) der aktuellen Installation: " & vbLf & vbLf & _
			CATIA.SystemService.Environ("CATInstallPath") , _
			vbOkOnly + vbInformation, "   Install-Path "
	
End Sub