Imports System Public Class MainClass Shared Sub Main(ByVal args As String()) Dim counterVariable As Integer = 0 repeat: ' the label Console.WriteLine("counterVariable: {0}", counterVariable) ' increment the counter counterVariable += 1 If counterVariable < 10 Then GoTo repeat ' the dastardly deed End If End Sub End Class