Loop until valid response

[billrow]

I would like to validate response to an InputBox, and repeat the prompt if invalid. Below is a simple example. It seems that I could use a True/False boolean variable with a loop to do this. I would prefer to not have to set a "True" value within every valid response case, as there could be lots of valid cases, and that seems inefficient. Would like to just set something within the "Else" case to cause it to loop the prompt code until valid. But I can't seem to think how to do that. :-( (Maybe just a brain f**t, or senior moment?) Thanks for any help! (I am using VBA 7.1 in Excel, but don't think that would matter?)

Response = InputBox(myMsg)
Select Case Response
 Case "A"
  'do A stuff
 Case "B"
  'do B stuff
 Case "C"
  'do C stuff
 Case "D"
  'do D stuff
 Case Else
  'prompt again
End Select

[jdc2000]

Maybe something like this:

blnResponseValid = False
Do While blnResponseValid = False
Response = InputBox(myMsg)
blnResponseValid = True
 Select Case Response
 Case "A"
 'do A stuff
 Case "B"
 'do B stuff
 Case "C"
 'do C stuff
 Case "D"
 'do D stuff
 Case Else
 'prompt again
 blnResponseValid = False
 End Select 
Loop

[billrow]

Duh!! I took a nap, and now it makes sense! :-( I was thinking that resetting to True within the loop would override setting it False in the "Else" case. But obviously (to most people!), the "Do While" would check the flag first and repeat the loop. Sorry to bother you!