Формат числа в TextBox

[MIKID]

Добрый день.
Прошу помощи!!!!!!

Private Sub pechat_Click()

Dim lNumber As Long
Dim i As Long
Set mL1 = Лист1
'Помещаем в переменную lNumber, с какого номера
'должна начинаться нумерация.
lNumber = Me.TextBox2.Value
'Делаем столько витков цикла, сколько страниц надо распечатать.
For i = 1 To Me.TextBox1.Value Step 1
'Помещаем в ячейку "A1" данные из переменной lNumber.
mL1.Range("B39").Value = lNumber
'Печатаем.
mL1.Range("A1:E44").PrintOut , Collate:=True
'Помещаем в переменную lNumber новое число для следующего витка цикла.
lNumber = lNumber + 1
Next i
End Sub

Нужно чтоб в ячейке В39 формат числа был 8 разрядный с нулями впереди.
Пример:
Сколько страниц печатать - 10
Начать с номера 00000001 и последовательно напечатались 10 страниц с номерами от 00000001 по 00000011
сейчас нули отсекаются.
Буду очень признателен!!!!!

[IgorGO]

format(1, "00000000") = 00000001

[MIKID]

Сделал, но не так
mL1.Range("B39").NumberFormat = "00000000"
Все работает.
Спасибо!!