Formatting a date from a VBA input box

Hi all,

I'm trying to get somthing to work in a function I'm using where a user has to enter a date. Whilst I have made sure in the input box the user enters in the format DD/MM/YYYY, it relies on the user reading the format. I want to make it fool proof so if someone enters 31/01/14, 31-01-2014, 31/1/14 etc that it pastes into the cell its going in, in the format of 31/01/2014.

Sub Macro4()

Dim newyr As Date
newyr = (InputBox("Enter New Year", "Enter Year (DD/MM/YYYY)"))
Range("K11").Value = newyr

End Sub

Thanks in advance

John