Example of Select-Case use in Visual Basic.NET