Sub CATMain()
msgbox CATIA.SystemService.Environ("CATTemp")
End Sub