Imports System

Public Module Module1

    Public Sub Main()

        Dim Number As Integer 

        Console.Writeline("Enter the number from 1 to 4")

        Number = Console.Readline

        If Number = 1 Then 

            Console.Writeline("One")

        Else 

            If Number = 2 Then 

                Console.Writeline("Two")

            Else 

                If  Number = 3 Then

                    Console.Writeline("Three")

                Else    

                    Console.Writeline("Four")

                End If 

            End If

        End If 

    End Sub

End Module