День добрый! Сергей, либо я не совсем понимаю, что вам требовалось, либо вы не прислушались к моему совету выше. Если необходимо получить имя текущего проекта без расширения, то для этого есть специальное свойство, и не надо ничего выдумывать. Надо лишь пару минут покопаться в объектном браузере.
Dim PrjName As String
PrjName = ThisApplication.DesignProjectManager.ActiveDesignProject.Name
MsgBox (PrjName)
П.С. В очередной раз советую вам переходить на VBA! Тогда вам не придется изобретать велосипед! Данный вопрос - очень наглядный пример!:)