Imports System

Public Module Module1

    Public Sub Main()

    dim x as string

Console.WriteLine("Enter something")

do

x = console.readline()

if x.Length = 0

console.writeline("Invalid")

end if

loop until x.length > 0

console.writeline("Valid")

​

    End Sub

End Module