Module Tester Sub Main() Dim counter As Integer = 1 Do Console.Write(counter & " ") counter += 1 Loop Until counter > 5 End Sub End Module
1 2 3 4 5 "