Changing the default hour and day function format

Hi,

I never use VB but I am looking at a DTS script that looks for the hour and day and second to have the leading 0.

so 9am on 1/1/2006 should be 0900 01012006

Here are the current functions:

the hh, mon, da and min needs to be updated.

mydate =now()
hh=Hour(time)
min=Minute(time)
yy=Year(date)
mon=Month(date)
da=DatePart("d",Date)

Thanks