Imports System
Public Class MainClass
Shared Sub Main()
'Determine which number was entered
Dim var As Integer
var = 10
Select Case var
Case 1
System.Console.WriteLine("The number 1 was entered")
Case 2
System.Console.WriteLine("The number 2 was entered")
Case 3
System.Console.WriteLine("The number 3 was entered")
Case 4
System.Console.WriteLine("The number 4 was entered")
Case 5
System.Console.WriteLine("The number 5 was entered")
Case Else
System.Console.WriteLine("A number other that 1 - 5 was entered")
End Select
End Sub
End Class