Select Case A
Case "y":
Case "Y":
Answer = true:
' break:
Case "n":
Case "N":
Answer = false:
' break:
End Select