Array til rettelse af Date/Time-format

Hejsa.
Fordi jeg vil have at den altid til returnere 2 cifre pr. oplysning, har jeg lavet disse end-if løsninger.
Er der ikke mulighed for at lave noget der ikke fylder så meget. Jeg kender ikke så meget til det. Men er der ikke noget der hedder select case?
vh Søren

if DatePart(\"m\", dtmDate) < 10 then
Months =\"0\" & DatePart(\"m\", dtmDate)
else
Months= DatePart(\"m\", dtmDate)
end if

if DatePart(\"d\", dtmDate) < 10 then
Days =\"0\" & DatePart(\"d\", dtmDate)
else
Days = DatePart(\"d\", dtmDate)
end if

if DatePart(\"h\", dtmDate) < 10 then
Hours =\"0\" & DatePart(\"h\", dtmDate)
else
Hours = DatePart(\"h\", dtmDate)
end if

if DatePart(\"n\", dtmDate) < 10 then
Minutes =\"0\" & DatePart(\"n\", dtmDate)
else
Minutes = DatePart(\"n\", dtmDate)

end if

if DatePart(\"s\", dtmDate) < 10 then
Seconds =\"0\" & DatePart(\"s\", dtmDate)
else
Seconds = DatePart(\"s\", dtmDate)

end if