DateDiff и 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) 'Здесь выводим для удобства в сообщении, а в реале вставлю в экселе в ячейку

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, )

Private Sub CommandButton1_Click()
Dim dDate1 As Date, dDate2 As Date, iDays As Integer
dDate1 = DTPicker1.Value
dDate2 = DTPicker2.Value
iDays = DateDiff("d", dDate1, dDate2)
MsgBox iDays
'Или короче ...
'MsgBox DateDiff("d", DTPicker1.Value, DTPicker2.Value)
End Sub

Private Sub CommandButton2_Click()
MsgBox "Äåíü - " & Day(DTPicker1.Value) & vbNewLine & "Ìåñÿö - " & _
Month(DTPicker1.Value) & vbNewLine & "Ãîä - " & Year(DTPicker1.Value)
End Sub

If CheckBox11.Checked = True Then
    With CreateObject("Excel.Application")
'        .EnableEvents = False
'        .ScreenUpdating = False
'        .DisplayAlerts = False
'        .Visible = True
        .Workbooks.Open "C:\print.xls"
        .Workbooks.Open "C:\Shablon.xls"
        .ActiveWorkbook.Sheets("Ðàáîòíèê1").Copy Before:=.Workbooks("Print.xls").Sheets(1)
'        .EnableEvents = True
'        .ScreenUpdating = True
'        .DisplayAlerts = True
    End With
End If

.Sheets("Иванов В.Н.").Copy(After:=.Workbooks("Print.xls").Sheets(2))

.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)