vba retrouver une date

Bonjour,

Je voudrais résoudre le problème suivant :

J'ai des nom de fichiers du type:
Fich1 = "Facturation20100101.xls"

Je retrouve avec le code ci-dessous l'année, le mois, le jour qui correspondent à ce fichier
annee1 = Mid(Fich1, 12, 4) * 1 'soit 2010
If Mid(Fich1, 16, 1) = "0" Then mois1 = Mid(Fich1, 17, 1) * 1 Else mois1 = Mid(Fich1, 16, 2) * 1 'soit 1
If Mid(Fich1, 18, 1) = "0" Then jour1 = Mid(Fich1, 19, 1) * 1 Else jour1 = Mid(Fich1, 18, 2) * 1 'soit 1

Je voudrais retrouver le nombre qui correspond à cette date soit pour le 1er janvier 2010: 40179

j'essaie :
dat1= date(annee1, mois1, jour1) mais cela ne marche pas

Merci pour votre aide,

Cordialement