Imports System

Public Module Module1

    Public Sub Main()

        'Using selection statements to check variables

        'Declare a number variable

        Dim number As Integer

        'Ask user for the number

        Console.WriteLine("Enter a number 1-3: ")

        number = Console.ReadLine

        'Check the value of the number

        If number = 1 Then Console.WriteLine("You entered one")

        If number = 2 Then Console.WriteLine("You entered two")

        If number = 3 Then Console.WriteLine("You entered three")

        Console.ReadLine()

    End Sub

End Module