Boa tarde, estou com uma planilha que ao salvar o textbox na celula do excel o zero a esquerda desaparece,
Eu personalizei a celula do excel em formatação com "000000".
Teria como fazer este processo quando for salvar os dados, ele manter o zero a esquerda do numero
Comando Salvar

Private Sub Salvar_Click()
intLinha = ThisWorkbook.Worksheets("Fornecedor").Range("A5000").End(xlUp).Offset(1, 0).Row
ThisWorkbook.Worksheets("Fornecedor").Cells(intLinha, 1) = CDbl(Me.Cod_Fornec.Text)
ThisWorkbook.Worksheets("Fornecedor").Cells(intLinha, 2) = CStr(Razao_Fornecedor)
ThisWorkbook.Worksheets("Fornecedor").Cells(intLinha, 3) = CStr(Fantasia_Fornecedor)
ThisWorkbook.Worksheets("Fornecedor").Cells(intLinha, 4) = CStr(Cnpj_Cpf)
Cod_Fornec = ""
Razao_Fornecedor = ""
Fantasia_Fornecedor = ""
Cnpj_Cpf = ""
Cod_Fornec.SetFocus
End Sub

Quando digita o codigo em textbox ele coloca completa com zero a esquerda

Private Sub Cod_Fornec_afterupdate()
Cod_Fornec.Text = Format(Cod_Fornec.Text, "000000")
End Sub