Imports System

Public Module Module1

    Public Sub Main()

        Dim Userchoice As Integer

        Do

            Console.WriteLine("Please insert number 1-4.")

            Userchoice = Console.ReadLine()

        Loop Until Userchoice >= 1 And Userchoice <= 4

        If Userchoice = 1 Then

            Console.WriteLine("One")

        End If

        If Userchoice = 2 Then

            Console.WriteLine("Two")

        End If

        If Userchoice = 3 Then

            Console.WriteLine("Three")

        End If

        If Userchoice = 4 Then 

            Console.WriteLine("Four")

        End If

    End Sub

End Module