Option explicit
Language = "VBSCRIPT"

Sub CATMain()
	
	MsgBox "Verzeichnis(se) der Message-Dateien: " & vbLf & vbLf & _
			CATIA.SystemService.Environ("CATMsgCatalogPath") , _
			vbOkOnly + vbInformation, "   Message-Path "
	
End Sub