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!"