Think you are already there. From the immediate window:

dt = dateserial(2004,2,3)
? Format(dt, "mm")
02


--
Regards,
Tom Ogilvy

"TO" wrote in message
...
Hello All,

I have some code that places the numeric value of the
current month (i.e. 12, 11) in a combo box when the
userform is activated. I would like it to show a "0" in
front of the single-digit months (09). I am using the
following code on userform activate.

cmbPer.Value = Format(Date, "mm")

I am using a combo box to give the user the option of
selecting a different month, if necessary.
Thanks