Datoformat i inputbox

Ved et specielt kriterie har jeg sat regnearket til via vba at der skal komme en inputbox hvor brugeren skal indtaste en dato.

Hvis brugeren indtaster 1-4-05, så bliver det den 4. januar og ikke 1. april. Hvordan løser jeg dette. koden :

If Target.Address = "$I$25" Then
If Range("i25").Value > 14 Then
  ' Inputbox ved indtastning af mere end 14 uger med løn for mor
If MsgBox("Afholdes de " & Range("i25").Value - 14 & " uger i forlængelse af de 14 uger ?", vbYesNo + vbQuestion, "Afholdelse") = vbNo Then
svar = InputBox("Indtast startdato for de " & Range("i25").Value - 14 & " uger" & vbNewLine & " " & vbNewLine & "Dato skal indtastes som 1-4-05")
Range("s26") = svar
End If
Else
Range("s26").Value = "=u25 + 1"
End If
End If