Incrémentation avec changement de journée

Bonjour,

Je travaille sous VBA Excel et j'aurai besoin de générer un ID unique pour chaque saisie dans l'userform.

l'ID prend le jour et le mois d'aujourd'hui + un numéro allant de 1 jusqu'à 100 par exemple.
cet ID doit changer chaque jour, et reprendre les mêmes conditions :

un exemple avec la date d'aujourd'hui 31 mars 2017 :

3103001 CLIENT 1
3103002 CLIENT 2
3103003 CLIENT 3

ensuite pour la journée de demain, je dois reprendre la date avec un incrémentation dès le début :

0104001 CLIENT 4
0104002 CLIENT 5


Avez vous un morceau de code dans ce sens ? qui se génère dans une TEXTBOX

d'avance merci