Здравствуйте!  
Нужно вывести дату следующего вида - Дата: 20120229 (yyyymmdd)  
 
Моя программка выводит месяц 02 без нуля. То есть - Дата: 2012229.  
Код программы  
   Sub data()  
       Dim d As Integer  
       Dim m As Integer  
       Dim y As Integer  
       Dim inpdate As Date  
                   
       inpdate = CDate(InputBox("Введите дату в формате ДД.ММ.ГГГГ", _  
           "Дата", Date))  
       d = Format(inpdate, "dd")  
       m = Format(inpdate, "mm")  
       y = Format(inpdate, "yyyy")  
       MsgBox "Дата: " & y & m & d  
 
   End Sub  
 
Как сделать, чтобы было с нулями, и месяц и день?