N°Auto avec AutoNumber

Bonjour

Private Sub N°Facture_Enter()
Dim Facture, N°Facture
Facture = Left([DateRac], 9) & "-" & Right([N°Fact], 6)
Me.[N°Facture] = Facture
End Sub
Avec cette procedure , j'obtiens un N°Facture de ce format
11032014-1
Je voudrai obtenir 11032014-0001, c'est adire de mettre des zeros devant le chiffre.
Comment utiliser autoNumber dans cette procedure ou une autre
utilise access2003 et supperieur
Merci de votre aide