appChoice = InputBox("Enter the numeric value for the appropriate selection below to proceed:" & vbNewLine & vbNewLine & _
"1 - Modify ALL roles for an application" & vbNewLine & _
"2 - Modify LOCATION-BASED roles for an application", "Roles to be Modified")
Select Case appChoice
Case Is = 1
'Do Something
Case Is = 2
'Do Something
Case Else
MsgBox "Option " & appChoice & " is not supported. Please re-enter the value.", vbExclamation + vbRetryCancel, "Not Supported"
appChoice = InputBox("Enter the numeric value for the appropriate selection below to proceed:" & vbNewLine & vbNewLine & _
"1 - Modify ALL roles for an application" & vbNewLine & _
"2 - Modify LOCATION-BASED roles for an application", "Roles to be Modified")
End Select
'nesting a further case statement here - allows for a mistake to be made 1 time.. I really don't recommend trying to design this way. Create an interface that validates a final thumbs up or down.