Отредактировать регулярное выражение

Подскажите пожалуйста, задача удалить из текста все, кроме русских и латинских букв, цифр и всех знаков shift 1 ... 0
Не получается добавить знаки шифта от 2 до 8 в обоих раскладках. Читал документацию по регуляркам, но что-то методом проб и ошибок не выходит. Пытаюсь добавить, в итоге только хуже становится, либо все удаляет, либо в исключение вываливается.
Прошу помощи.

RegExp = Новый COMОбъект("VBScript.RegExp");
RegExp.MultiLine = Ложь;
RegExp.Global = Истина;
RegExp.Pattern = "[^a-zA-ZА-Яа-я0-9\s?!,.)('Ёё]";  
ИсходныйТекст = СокрЛП(ИсходныйТекст);
Результат = RegExp.Replace(ИсходныйТекст, "");