Как сохранить нули в начале строки файла - VBA

Формулировка задачи:

Имею дело с артикулами, потому сохранить ноль перед числовым артикулом крайне важно. Но почемуто при обработке данных эти нули режутся. Прикрепил файл с примерами этих артикулов, нули которых режутся. В цикле добавляю апостроф

        shtWork.Cells(r, 1).Value = "'" & shtWork.Cells(r, 1).Value

к артикулам, но всёравно не помогает, нули режутся.

Решение задачи: «Как сохранить нули в начале строки файла»

textual
                            Листинг программы 
                        
                            Cells(10, 1).Value = "'" & Cells(10, 4).Text