Garder les 0 devant un nombre lors de l'enregistrement via VBA

Bonjour,

J'ai une macro d'enregistrement en PDF via un bouton (le nom est ciblé ainsi que sa destination). Le nom d'enregistrement est un numéro de facture se terminant par 001, 002, 003, etc...
Je n'arrive pas à faire apparaitre les 0 devant le 1, le 2, le 3, etc... dans le nom du fichier d'enregistrement.
La cellule Q10 est la cellule en question.
Le code de base qui fonctionne est :

Sub Facture_SAVE()

NomFichier = Format(Range("M10"), "yyyy" & "-" & "mm" & "-" & "dd" & "-")
NomFichier2 = Format(Range("Q10"), Value)
chemin = "C:\GestionResto\Factures\"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
chemin & NomFichier & "" & NomFichier2 & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=True

End Sub

Merci d'avance pour votre aide!