Another remark. I hope you are aware that in a SELECT-CASE-ENDSELECT only one CASE is used. So, if the first CASE is true, all following CASEs will be skipped.
_________________________
There are two types of vessels, submarines and targets.