Imports System

Public Module Module1

    Public Sub Main()

        Dim Number as integer

        Console.WriteLine("Enter a number between 1 and 4")

        Number = Console.ReadLine()

        Select Case Number 

        Case = 1

            Console.writeline("One")

        Case = 2

            Console.writeline("Two")

        Case = 3

            Console.Writeline("Three")

        Case = 4

            Console.WriteLine("Four")

        End Select

    End Sub

End Module