Date et Numéro de lot

Bonjour à tous et bonne année 2005

Je vous soumet mon petit problème. Pour mon travail je dois utiliser des numéros de lot qui fonctionnent avec les dates. Par exemple 5003 pour aujourd'hui (5 pour l'année et 3 pour le 3ème jour de l'année)

Par ailleurs j'utilise un USF dans lequel je rentre automatiquement ce numéro en utilisant le code suivant:

TextBox1.Text = CStr(Right(Date, 1)) & CStr(Date - CDate("01/01/" & Right(Date, 2)) + 1)

L'année dernière tout fonctionnait parfaitement mais maintenant j'obtiens 53 au lieu de 5003.

Je précise que c'est grace aux lumières de ce forum que j'utilise ce code mais sans réellement le comprendre d'où mon incapacité à résoudre ce problème...

Merci par avance de m'indiquer si une marche à suivre est possible pour sortir de ce faux pas malheureux.

Merci d'avance
A++
Laurent