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