Как преобразовать полное ФИО в сокращенное в 1С

Данная функция преобразовывает Фамилию Имя Отчество в Фамилия И.О.

Функция ФамилияИО(ПолноеФИО) Экспорт
	ПервПроб = Найти(ПолноеФИО," ");
	Если ПервПроб=0 Тогда
		Возврат ПолноеФИО;
	Иначе
		Фамилия = Лев(ПолноеФИО,ПервПроб);
		ИО = Сред(ПолноеФИО,ПервПроб+1);
		ИО = СокрЛ(ИО);
		Имя = Лев(ИО,1)+".";
		ВтПроб = Найти(ИО," ");
		Если ВтПроб=0 Тогда
			Возврат Фамилия+Имя;
		Иначе
			Возврат Фамилия+Имя+" "+Лев(СокрЛ(Сред(ИО,ВтПроб+1)),1)+".";
		КонецЕсли;
	КонецЕсли;
КонецФункции

//Пример обращения
Текст = "Иванов Иван Иванович";
Сообщить(ФамилияИО(Текст)); //Выведет - Иванов И. И.