CATIA UI language

Привет всем!
Как можно получить текущую UI language для CATIA?
Никто с таким не сталкивался?
Как можно получить текущую UI language для CATIA?
Никто с таким не сталкивался?
Форум русскоязычных пользователей CATIA
http://www.plm-forum.ru/forum/
Dim sPartNumber
On Error Resume Next
sPartNumber = CATIA.ActiveDocument.Part.Parameters.Item("Номер детали").ValueAsString
If (Err.Number <> 0) Then
Err.Clear
MsgBox " Язык не русский"
Else
MsgBox "Язык русский"
End If