Функция глОстатокVB(тов) Экспорт
Перем знТов;
КодТовара=СокрЛП(тов);
знТов=0;
Если СтрДлина(КодТовара)>0 Тогда
спрТов=СоздатьОбъект("Справочник.Товары");
Если СтрДлина(КодТовара)<Метаданные.Справочник("Товары").ДлинаКода Тогда
СчетчикЦикла = Метаданные.Справочник("Товары").ДлинаКода-СтрДлина(КодТовара);
Для к=1 По СчетчикЦикла Цикл
КодТовара=" "+КодТовара;
КонецЦикла;
СчетчикЦикла = "";
КонецЕсли;
Если спрТов.НайтиПоКоду(КодТовара,0)>0 Тогда
Товар=спрТов.ТекущийЭлемент();
знТов=Регистр.ОстаткиТоваров.СводныйОстаток(Товар,,,"ОстатокТовара");
Товар="";
КонецЕсли;
спрТов="";
КонецЕсли;
Возврат знТов;
КонецФункции

При выполнении данной функции вылазит ошибка Несовпадение типа! Подскажите что не правильно? Вводное значение это код 1С товара, выходное его остаток!