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 ...
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 Su...