Numero de jour

Bonjour le forum,
Y a t il une solution pour recupérer le numéro du jour de l'année en VB,
je vous explique, j'ai une application partagée et protégée par un mot de passe à l'ouverture du fichier, mot de passe par une textbox, actuellement, mon mot de passe est : mdp- et la date du jour, voici mon code

Option Explicit
Private Sub CommandButton1_Click()
If TextBox1.Text = UF3.DateJour.Value Then
Unload Me
Else
MsgBox "Erreur de mot de passe"
TextBox1 = ""
Exit Sub
End If
If Month(Now()) = 1 Then
BonneAnnee.Show
End If
On Error Resume Next
UF1.Show
End Sub
Private Sub UserForm_Initialize()
DateJour.Value = "mdp" & "-" & Date
End Sub

Je voudrai pouvoir saisir maintenant, mdp-numéro de jour-date du jour

J'entends par numéro de jour, exemple, 1er janvier =001
15janvier = 015 et ainsi de suite jusqu'au 31 decembre = 365

Merci de reponses