Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim counterVariable As Integer = 0
Do
Console.WriteLine("counterVariable: {0}", counterVariable)
counterVariable = counterVariable + 1
' test whether we've counted to 9, if so, exit the loop
If counterVariable > 9 Then
Exit Do
End If
Loop
End Sub
End Class