Imports System

Public Module Module1

    Public Sub Main()

​

        Dim Number as integer

        Do

            console.WriteLine("Enter number (1-4)")

            number = console.readline()

        loop until Number >= 1 AND number <= 4

        console.writeline("you listened to my command!")

    End Sub

End Module

​

​

'Pseudocode

'---------------------------------------

'INTEGER = Number

'

'REPEAT 

'

'   INPUT "Enter number from 1-4"

'Until number >= 1 AND Number <=4

'

'OUTPUT "You listened to my command!"