Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim counterVariable As Integer = 0
Do Until counterVariable = 10
Console.WriteLine("counterVariable: {0}", counterVariable)
counterVariable = counterVariable + 1
Loop ' Until counterVariable = 10
End Sub
End Class