Imports System

Public Module Module1

    Public Sub Main()

​

        Dim value As Integer = Integer.Parse(Console.ReadLine())

        Select Case value

            Case 1

                Console.WriteLine("You typed one")

            Case 2

                Console.WriteLine("You typed two")

            Case 3

                Console.WriteLine("You typed three")

            Case 4

                Console.WriteLine("You typed four")

            Case 5

                Console.WriteLine("You typed five")

            Case 6

                Console.WriteLine("You typed six")

            Case 7

                Console.WriteLine("You typed seven")

            Case 8

                Console.WriteLine("You typed eight")

            Case 9

                Console.WriteLine("You typed nine")

            Case 10

                Console.WriteLine("You typed ten")

            Case Else

                Console.WriteLine("You typed something else")

        End Select

    End Sub

End Module

​