I want to pop up a MsgBox if if user enters date like 2015.04.30 instead of 30.04.2015.

Dear experts,
Following code redirects user to enter date as intended format.
I want to pop up a MsgBox if user enters date like 2015.04.30 instead of 30.04.2015.
Any idea?

Sub Macro1()
Dim x
x = Application.InputBox(Prompt:="Please enter the date... Intended Format: 30.04.2015", Title:="Hello", Default:="30.04.2015", Type:=2)
MsgBox "Wrong format"
End Sub

Thanks in advance.

Useful link:
https://msdn.microsoft.com/en-us/lib.../ff839468.aspx