CATIAHotline.com

 

'COPYRIGHT CATIAHotline.com

' ****************************************************************************
' Purpose: To show the Release of CATIA in the Title Bar and shamelessly Plug CATIAHotline.com
'
'
' Author: Unknown
' Languages: VBScript
' Version: Any
' Reg. Settings: English (United States)
' ****************************************************************************
Sub CATMain()

sNames = Split(CATIA.FullName, "\")
CATIA.Caption = Mid(CATIA.Caption, 1, 8) & " R" & Mid(sNames(UBound(sNames) - 4), 2) & " Brought to you by CATIAHotline.com"

End Sub