codice:
Private Sub Form_Load()

    Dim x As Long
    Dim y As Long
    Dim z As Long
    Dim hdate As Date
    hdate = "21/03/2002"
    x = DateSerial(Year(hdate), Month(hdate), Day(hdate))
    y = DateSerial(Year(hdate), 1, 1)
    z = x - y
    MsgBox z
    Unload Me

End Sub
Smanettando ho risolto meta del mio problema

z mi restituisce "79" che corrispondono al numero di gg che sono trascorsi dal 01/01/2002 al 21/03/2002
Ora l'altra meta del mio problema ste ne processo inverso
Dato un numero mi deve tornare la data .