io l'ho risolto spezzando e testando la lunghezza...

dim GG, MM as string
dim Data as string
GG = day
if len(GG) = 1 then
GG = "0" + day
end if
MM = month
if len(MM) = 1 then
MM = "0" + month
end if
Data = GG + "/" + MM 'poi metttici anche l'anno...