DateDiff и DateTimePicker - VB

Формулировка задачи:

Только начал изучать visual Basic, так что сильно не ругайте. Пишу небольшую программку для автоматизации заполнения и печати командировочных удостоверений и столкнулся с кучей подводных камней. Требуется подправить и если надо объяснить... Начну по порядку 1. Требуется вычислить количество дней от одной даты до другой. Казалось бы что может быть легче... Использую для этого дела DateTimePicker. Вот код, который уже извращен и усложнен от первоначального...

        Dim d1 As DateTimePicker ' Пробывал и Date но ругается что нельзя привести к Date...
        d1 = DateTimePicker1
        DateTimePicker1.CustomFormat = ("dd, m,yyyy")
        DateTimePicker1.Format = DateTimePickerFormat.Custom
        Dim d2 As DateTimePicker
        d2 = DateTimePicker2
        DateTimePicker2.CustomFormat = ("dd, mm,yyyy")
        DateTimePicker2.Format = DateTimePickerFormat.Custom
 
        Dim d3 As Integer
        d3 = DateDiff(DateInterval.Day, d1, d2) ' Ругается что date1 нельзя привести к формату Date
        MsgBox(d3) 'Здесь выводим для удобства в сообщении, а в реале вставлю в экселе в ячейку

Т.Е. по логике должны получить количество дней от d1 до d2 в виде переменной d3 ? Где ошибка и почему DateTime Picker не признается как Date ни под каким соусом? И кстати как из DateTimePicker вытащить отдельно день, отдельно месяц и отдельно год и записать все это для каждого в свою переменную ? 2. CheckBox. Необходимо при нажатии кнопки что бы проверялось на каких CheckBox стоит галочка и копировать необходимые листы из одной книги в другую, к примеру из shablon1.xls в print.xls С копированием листов проблем никаких нет. Проблема сделать это через CheckBox Пробывал сделать через

Dim EX As Object
        
        If CheckBox11.Checked = True Then
         EX = CreateObject("Excel.Application")
            EX.Workbooks.Open(Filename:="C:\Модуль Командировок\Shablon1.xls") ' открывает указанный файл
            EX.Workbooks.Open(Filename:="C:\Модуль Командировок\print.xls") ' открывает указанный файл
            EX.Windows("Shablon1.xls").Activate()
            EX.Sheets("Работник1").Select()   'Пишет Неверный индекс. (Исключение из HRESULT: 0x8002000B (DISP_E_BADINDEX))
            EX.Sheets("Работник1").Copy(Before:=EX.Workbooks("print.xls").Sheets(1))
        End If
 
If CheckBox11.Checked = False Then MsgBox("Галочка снята", vbCritical, )

Выдает ошибку на строке EX.Sheets("Работник1").Select() Неверный индекс. (Исключение из HRESULT: 0x8002000B (DISP_E_BADINDEX)) Пока вроде все, из за этого дальше двинутся не могу...

Решение задачи: «DateDiff и DateTimePicker»

textual
                            Листинг программы 
                        

                            .Workbooks.Open("C:\Модуль командировок\print.xls")
.Workbooks.Open("C:\Модуль командировок\Shablon1.xls")
.Sheets("Иванов В.Н.").Copy(After:=.Workbooks("Print.xls").Sheets(2))
.Workbooks("print.xls").close(SaveChanges:=True)
.Workbooks("shablon1.xls").close(SaveChanges:=False)
                        