Public Sub UserDate()
  Dim strDate As String
  strDate = InputBox("Insert date in format dd/mm/yy", "User date", Format(Now(), "dd/mm/yy"))
  If IsDate(strDate) Then
    strDate = Format(CDate(strDate), "dd/mm/yy")
    MsgBox strDate
  Else
    MsgBox "Wrong date format"
  End If
End Sub