Примерно так:

А = "АППРРОРДГШЫЕПРМОЛОЛЖДЫАП� �� �ВАОРЛДМИТЬТЫЫЕГГДЖЩЗХГШ� �" ;
Б = "Ы";
Счетчик = 0;

Для Н=1 по СтрДлина(А) Цикл
Строка=Сред(А,Н,1);

Если Строка = Б Тогда
Сообщить("Найдена нужная буква: " +Б);
Счетчик = Счетчик +1;
Иначе

КонецЕсли;

КонецЦикла;
Сообщить("Кол-во букв Ы = "Счетчик);