Лыжи не едут?
        ТабНомер = СокрЛП(ActiveSheet.Cells(НомерСтроки,3).Text);
        КодСотрудника = "00ЗП-" + Формат(ТабНомер, "ЧЦ=5; ЧВН=; ЧГ=0");


Не работает форматная строка, возвращает, например 00ЗП-62
Проверил ТабНомер, = "62", стрдлина = 2

ТабНомер тип Строка, а спецификаторы указаны для числа вот и не работает.