Imports System

Public Module Module1

    Public Sub Main()

        dim i as integer

        console.writeline("enter a number")

        i = console.readline()

        if i < 0 and i > 9

            do

                console.writeline("Please enter a number from 0 to 9: ")

                i = console.readline()

            loop until i >= 0 and i <=9

        end if

    End Sub

End Module