Imports System

Public Module Module1

    Public Sub Main()

        Dim s as integer

        Console.WriteLine("Input a Number")

        s= Console.ReadLine()

        If s=1 then 

             Console.WriteLine("one")   

        Elseif s=2

             Console.WriteLine("two")   

        Else If s=3

             Console.WriteLine("three")

        Else If s=4

            Console.WriteLine("four")

        Else If s=5

            Console.WriteLine("five")

        Else

        Console.WriteLine("Invalid Input")

        End If

        End Sub

End Module