Listing 1: The ShowDateFormats() subroutine
NONEXECUTABLE: To obtain the executable file, download the Zip file from the opening page of the article.

Sub ShowDateFormats()
    Dim strResponse As String
    Dim strMsg As String
    Dim HT As String
    Dim intResult As Integer
    Dim strTitle As String
    
    HT = Chr(9) ' horizontal tab character
    strTitle = "Show named date formats"
    
    strResponse = InputBox("Enter any date or time:", strTitle)
    If IsDate(strResponse) Then
        strMsg = "You entered: " & strResponse & _
                 ". See how it looks with different named date " & _
                 "formats in the Format() function:" & _
                 vbCrLf & vbCrLf & _
                 "General Date" & HT & Format(strResponse, "General Date") & vbCrLf & 
                 "Long Date" & HT & Format(strResponse, "Long Date") & vbCrLf & _
                 "Medium Date" & HT & Format(strResponse, "Medium Date") & vbCrLf & _
                 "Short Date" & HT & Format(strResponse, "Short Date") & vbCrLf & _
                 "Long Time" & HT & Format(strResponse, "Long Time") & vbCrLf & _
                 "Medium Time" & HT & Format(strResponse, "Medium Time") & vbCrLf & _
                 "Short Time" & HT & Format(strResponse, "Short Time")
        MsgBox strMsg, , strTitle
    Else
        strMsg = "You entered " & Chr(34) & strResponse & Chr(34) & _
                 " -- which is not a valid date. Do you want to try again?"
        intResult = MsgBox(strMsg, vbYesNo, strTitle)
        If intResult = vbYes Then
            ShowDateFormats
        End If
    End If
End Sub