Проблема с передачей цифровых данных в ячейку таблицы Excel - VB

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

Дорогие, есть следующая проблема - в макросе у меня идет формирование таблицы, по определенным данным. Есть проблема при передаче цифровых данных, содержащих в начале нули - они просто обрезаются, то есть из исходного 001 я получаю 1. Как можно с этим бороться? Я пробовал изначально в шаблоне формируемой таблицы задавать формат ячеек как текстовый, но тогда могут возникать проблемы с другими типами данных, например, с формулами. Поэтому изначально таким ячейкам в шаблонах таблиц я задаю "Общий" формат.
Буду благодарен за совет.

Решение задачи: «Проблема с передачей цифровых данных в ячейку таблицы Excel»

textual
                            Листинг программы 
                        
                            <font color="blue">dim</font> sText <font color="blue">as</font> <font color="blue">string</font>
sText = Format(<font color="darkblue"><b>1</b></font>, <font color="teal">"000"</font>)