Başka alanlarda da kullanabilirsiniz tabi,

   If Len(Metin1) = 1 Or 2 Or 3 Then

                Metin2 = Format(Metin1, "000000")

            End If

kodunu silmeniz gerekir. ben bu kodu kimlik alanı için, "15"i "000015" olarak değerlendirmesi için yazdım.