Data e replace in formattazione

[M@sE]

Ciao a tutti ho questo piccolo problema che non riesco a sbrogliare, praticamente mi succede con i giorni antecedenti al 10 di ogni mese, è possibile visualizzare al posto di 2005/12/1 - 2005/12/01 ?

questo è ciò che faccio:

data = FormatDateTime(Now())
data = Year(data) & "/" & Month(data) & "/" & Day(data)


il risultato è 2005/12/1, mentre vorrei che fosse 2005/12/01

grazie in anticipo

[Alethesnake]

data = Year(data) & "/" & Right("00" & Month(data), 2) & "/" & Right("00" & Day(data), 2)