Offering Options in a Macro

@Tomek, Brian
I often use vbNewLine: Chr(13) + Chr(10) or, on the Macintosh, Chr(13). Platform-specific new line character; whichever is appropriate for current platform.

@Brian:
Theoretically there are three VBA constants:
vbCr - carriage return = Chr(13)
vbLf - line feed =Chr(10)
vbCrLf - combination of the two above in that order.

Currently in Windows environment there is very little difference if you use any of them in your code, except, maybe, if you output to an external binary file. Historically, they were relevant to typewriters and early computer consoles.

If you use any with MsgBox in the prompt you will get the same result for each of them, and in MsgBox Title they are all ignored.
If you use them to add text to your document, whichever you use will be converted to the end-of paragraph mark (essentially equivalent to Chr(13).
From what I have seen most people would use vbCrLf.

It may be different on the Mac.

P.S. The appearance of the code on the site turned out to be as intended.
The hard-space character code only looks strange in the comment input box.

Thanks to Allen, and to Willy Vanhaelen for his comments. I built on these to make the interface slightly more user friendly by offering an explanation of what is required and showing what was entered. I also changed the Msgboxes to make them transient. The following code worked as expected on my W10/MS 365 machine, but comes with no guarantees...

Note: The code contains hard spaces in an attempt to preserve the indentation. If the nbsp; strings (including the preceding&) are copied into your VBA module unchanged, simply replace them all with ordinary space characters.

'============================================================================================================
Private Sub User_Choice_Example2()
'https://excelribbon.tips.net/T011059_Offering_Options_in_a_Macro.html _
    Comment on 2019-01-20 13:45:08 by Willy Vanhaelen _
    Amended CvZ
'============================================================================================================
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
Dim BtnCode, The_Text, Delay_Secs, The_Title, The_Type

Dim Prompt As String
Dim UserResp As String
' Get user choice
    Prompt = _
    "1. This is your first choice" & vbCrLf & _
    "2. This is your second choice" & vbCrLf & _
    "3. This is your third choice" & vbCrLf & _
    "4. This is your fourth choice" & vbCrLf & _
    "5. This is your fifth choice"
    Do
        UserResp = InputBox(Prompt, "The Big Question")
        Select Case UserResp
        Case ""
            MsgBox "Exiting at your request"
            Exit Sub
        Case "1", "2", "3", "4", "5"
            Exit Do
        Case Else
            MsgBox "Valid responses are 1 or 2 or 3 or 4 or 5" _
                & vbCrLf & "You entered: " & UserResp
        End Select
    Loop Until InStr("1×2×3×4×5×", UserResp & "×") '0 if not found
' Use user choice
    Delay_Secs = 2
    The_Text = "You chose "
    The_Title = "Transient box, self-destruct in " & Delay_Secs & " seconds."
    The_Type = 64
    
    Select Case UserResp
    Case "1"
        'replace with your code
        WshShell.Popup The_Text & "Choice 1", Delay_Secs, The_Title, The_Type
    Case "2"
        'replace with your code
        WshShell.Popup The_Text & "Choice 2", Delay_Secs, The_Title, The_Type
    Case "3"
        'replace with your code
        WshShell.Popup The_Text & "Choice 3", Delay_Secs, The_Title, The_Type
    Case "4"
        'replace with your code
        WshShell.Popup The_Text & "Choice 4", Delay_Secs, The_Title, The_Type
    Case "5"
        'replace with your code
        WshShell.Popup The_Text & "Choice 5", Delay_Secs, The_Title, The_Type
    End Select
    
    Set WshShell = Nothing

End Sub

Is vbCrLf preferred to vbCrLf? Is there any difference? I suppose for that matter Chr(10)?

Thanks for this tip, Mr. Wyatt! Never thought to use the InputBox that way--simple but elegant. Nice.

The While ... Wend loop used in this tip's macro is obsolete and is still maintained in vba only for backward compatibility. It is better coding practice now to use Do ... Loop.

The While ... Wend loop in this macro has also 2 flaws.
1) The InputBox has an OK and Cancel button but if you click the Cancel button, the input box is displayed again. So if the user changes its mind or realizes he runs the macro by mistake, he has no possibility to quit the macro.
2) If you enter i.e. 2.2 or a letter the macro should display the input box again because it is an illegal entry but instead it doesn't do anything and stops.

Here is my (slightly simplified) version that deals with these flaws:

Sub Macro1()
Dim Prompt As String
Dim UserResp As String
Prompt = _
"1. This is your first choice" & vbCrLf & _
"2. This is your second choice" & vbCrLf & _
"3. This is your third choice" & vbCrLf & _
"4. This is your fourth choice" & vbCrLf & _
"5. This is your fifth choice"
Do
UserResp = InputBox(Prompt, "The Big Question")
If UserResp = "" Then Exit Sub
Loop Until InStr("1×2×3×4×5×", UserResp & "×")
Select Case UserResp
Case "1"
MsgBox "choice 1" 'replace with your code
Case "2"
MsgBox "choice 2" 'replace with your code
Case "3"
MsgBox "choice 3" 'replace with your code
Case "4"
MsgBox "choice 4" 'replace with your code
Case "5"
MsgBox "choice 5" 'replace with your code
End Select
End Sub