[VB]formato data strano

[Aki]

però, io devo avere la data in formato 2004/10/18, però se giorno o mese sono inferiori a 10, tipo 1 gennaio 2004, lo vorrei in questo formato: 2004/01/01, io avevo pensato a questo:

if DateTime.Now.Month() < 10 then
   'Scrivi yyyy/0m/gg
elseif DateTime.Now.Day() < 10 then
   'Scrivi yyyy/mm/0g
elseif DateTime.Now.Month() < 10 and DateTime.Now.Day() < 10 then
   'Scrivi yyyy/0m/0g
end if

pensando poi di comporre la stringa con le istruzioni separate x acquisire numero dell'anno, del mese e del giorno;
ma come?