Проверка строки на наличие русских символов

RegExp = Новый COMОбъект("VBScript.RegExp");
RegExp.Global = Истина; //найти все вхождения
ИсходнаяСтрока = Объект.Пароль; // Ваше поле куда вводится пароль. 
RegExp.Pattern = "[А-Яа-я]"; // ищем вхождения всех русских букв верхнего и нижнего регистров
Matches = RegExp.Execute(ИсходнаяСтрока); //сама проверка
Результат = Matches.Count; // Число. Количество вхождений букв русского алфавита. Если результат отличен от нуля - есть русские буквы

Перем Код_а_н; // русская а - нижний регистр
Перем Код_я_н; // русская я - нижний регистр
Перем Код_а_в; // русская а - верхний регистр
Перем Код_Я_в; // русская я - верхний регистр
 
Функция ЭтоРусскаяБуква(буква)
  кодАнализа = КодСимвола(буква);
  возврат (КодАнализа >= Код_а_н и КодАнализа <= Код_я_н) или (КодАнализа >= Код_а_в и КодАнализа <= Код_я_в)
конецфункции
 
Код_а_н = КодСимвола("а");
Код_я_н = КодСимвола("я");
Код_а_в = КодСимвола("А");
Код_я_в = КодСимвола("Я");