The case block ends with:

Break;

End select

Case else

End case