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("This message meant You didn't make a misstake")

    End Sub

End Module

​

'psudocode

'INTEGER : number

'

'REPEAT 

'   INPUT "enternumber from 1-4" , number

'UNTIL number >= 1 AND number <= 4

'

'OUTPUT : well listened