The case block ends with:

End case

Case else

Break

End Select