Statements VB.Net Tutorial

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 "