Date, Format и отображение даты....

Dim d1, d2, d4 As Date
        Dim d3 As Integer
        Dim d5 As String
        d1 = DateTimePicker1.Value
        d2 = DateTimePicker2.Value
        d3 = DateDiff(DateInterval.Day, d1, d2) + 1
        d4 = DateTimePicker3.Value
        d5 = (Format(d2, "dd MMMM yy"))
        MsgBox(d5) ' Здесь отображается дата в правильном  
                         'формате - 25 июн[U]я[/U] 11    
 
' далее я копирую нужный лист из одной книги в другую, 
'делю дату на день месяц и год и вставляю в нужные ячейки
 
 If CheckBox1.Checked = True Then
                .Workbooks("shablon1.xls").Sheets("Иванов Н.В.").Copy(After:=.Workbooks _ 
                       ("Print1.xls").Sheets(1)) 'Процедура копирования листа "Иванов Н.В." 
                'из книги шаблона в книгу Print1.xml
                .Range("C26").Value = d3 'Ячейка с количеством календдарных дней
                .range("AV12").value = (Format(d4, "d.MM.yyyy")) 'Ячейка "Дата составления"
                .range("C28").value = (Format(d1, "dd")) 'Ячейка "день" из строки командировка С 
                .range("G28").value = (Format(d1, "MMMM")) 'Ячейка "Месяц" из строки командировка С
                .range("U28").value = (Format(d1, "yy")) 'Ячейка "год" из строки командировка С
                .range("AD28").value = (Format(d2, "dd")) 'Ячейка "день" из строки командировка ПО 
                .range("AH28").value = (Format(d2, "MMMM")) 'Ячейка "Месяц" из строки командировка ПО 
                .range("AV28").value = (Format(d2, "yy")) 'Ячейка "год" из строки командировка ПО

Месяц_буквенный_текущей_даты = Choose(Month(Now), " января ", " февраля ", " марта ", " апреля ", " мая ", " июня ", " июля ", " августа ", " сентября ", " октября ", " ноября ", " декабря ") 'переводим месяца из числового значения в буквенное значение