Это потому, что Excel обрабатывает данные как «числовые». Простой способ заставить Excel принять что-либо как текст - это добавить апостроф к тексту.
например. чтобы записать целое число 123 как 00000123, просто напишите:
ActiveCell = "'" & Format(123, "00000000")
РЕДАКТИРОВАТЬ: Другое решение состоит в том, чтобы установить ячейки NumberFormatProperty в текст:
Worksheet.GetRange(..).EntireColumn.NumberFormat = "@"
Возможно, вы захотите увидеть эту статью: Автоматический формат ячейки Excel