Correctly formatting a date inserted from an input box

Hello everyone. I need your help.

In fact I using this code (Thanks to walruseggman)

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 2 Then
    If IsDate(Target.Offset(0, -1).Value) And IsDate(Target.Value) Then
        If Target.Value > DateAdd("ww", 6, Target.Offset(0, -1).Value) Then
            MsgBox ("Cannot exceed 6 weeks after value in column A")
            Target.ClearContents
        End If
    Else
        MsgBox ("only dates are allowed in columns A and B")
        Target.ClearContents
    End If
ElseIf Target.Column > 2 And Range("B" & Target.Row).Value = "" Then
    Range("B" & Target.Row).Value = InputBox("Please enter a due date for column B")
End If
Application.EnableEvents = True
End Sub

It works great but when the input box pops up to force a date in column B and because I live in Europe I enter the date dd/mm/yyyy and when I click ok it appears as mm/dd/yyyy in the cell. The cell is correctly formated. Is there a way to solve this?

For more information see this thread http://www.excelforum.com/excel-prog...two-dates.html

Thanks for your help