Функция БулевоДляComОбъектов(_знач_булево)
    Если _знач_булево Тогда         
        Возврат -1;
    КонецЕсли;
    Возврат _знач_булево;
КонецФункции

Функция РегулярноеВыражение_ПолучитьПо(СтрИсточник, Шаблон, Global = Истина, IgnoreCase = Истина, MultiLine = Ложь)
    RegExp = Новый COMОбъект("VBScript.RegExp");      
    //Поиск всех вхождений шаблона    
    RegExp.Global = БулевоДляComОбъектов(Global);                         
    //Игнорировать регистр символов      
    RegExp.IgnoreCase = БулевоДляComОбъектов(IgnoreCase);     
    //Многострочный режим    
    RegExp.MultiLine = БулевоДляComОбъектов(MultiLine);       
    RegExp.Pattern = Шаблон;
    Вхождения = RegExp.Execute(СтрИсточник);    
    Возврат Вхождения;
КонецФункции    

Процедура Получить_ТЛ(Документ,_Строка)        
    Вхождения = РегулярноеВыражение_ПолучитьПо(Документ.Примечание, "\*/ТЛ\s(.+)\*/",,,Истина);                 

КонецПроцедуры


Текст вида

*/ТЛ 4654
6544
465 */ 77
_43_44_55_48_

Не находит то что между */ и */

\*\/ТЛ\s([\w|\s]*)\*\/

ага

в vbscript есть функция InStr,которая для данного поиска подойдет лучше,чем RegExp.