Option explicit
Language = "VBSCRIPT"

Sub CATMain()
	
	MsgBox "Das Verzeichnis der User-Settings lautet:" & vbLf & vbLf & _
			CATIA.SystemService.Environ("CATUserSettingPath") , _
			vbOkOnly + vbInformation, "   User-Settings  "
	
End Sub