Formatproblem bei Datumseingabe

Sub Eintrag()
Dim StartDate As Date
Dim EndDate As Date
StartDate = InputBox("What is the start date?", "Start Date")
EndDate = InputBox("What is the end date?", "End Date")
Range("D1").Select
ActiveCell = StartDate
ActiveCell.Offset(0, 1).Select
'If empty, take today's date
If EndDate = "" Then ActiveCell = "=TODAY()" Else ActiveCell = EndDate
End Sub

Problem: Wenn ich EndDate als Date deklariere, bekomme ich einen Laufzeitfehler 13 (Typen unverträglich), egal ob ich ein Enddatum eingebe oder nicht. Falls ich nur "Dim EndDate" benutze, funktioniert alles, aber die Zelle ist nicht als Datum formatiert.
Kann ich natürlich nachträglich machen lassen, aber mich interessiert, was genau bei der ersten Version falsch läuft.
Würde mich über eine kurze Aufklärung freuen.
Besten Dank,
Thomas