aVariable = “A”
Select Case aVariable
Case “A”
MsgBox “you said A”
Case “B”
MsgBox “you said B”
Case “C”
MsgBox “you said C”
Case “D”
MsgBox “you said D”
Case “E”
MsgBox “you said E”
Case “F”
MsgBox “you said F”
Case “G”
MsgBox “you said G”
Case “H”
MsgBox “you said H”
Case “I”
MsgBox “you said I”
Case “J”
MsgBox “you said J”
End Select