Использование регулярных выражений VBScript в 1С Предприятие (только для Windows). День тринадцатый

На сайте инфостарт я вступил в дискуссию по поводу приведения строки в число - поэтому и решил написать эту маленькую "шпору" программисту...

Допустим, пользователь мог ввести номер телефона в виде "8 (123) 456-789-10-11 доб.555" или еще как-то. Мы хотим получить только цифры.

Вот небольшой код

    RegExp = Новый COMОбъект("VBScript.RegExp");
    RegExp.IgnoreCase = Истина; //Игнорировать регистр 
    RegExp.Global = Истина; //Поиск всех вхождений шаблона 
    RegExp.MultiLine = Истина; //Многострочный режим 
    RegExp.Pattern = "[^0-9]"; // отбор только чисел
    
    //здесь может быть цикл
    ТелефонИсправленный = RegExp.Replace(Телефон, "");
    //