Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim counter As Integer
While counter <= 10
' skip remaining code in loop only if counter = 7
If counter = 7 Then
Exit While
End If
counter += 1
End While
Console.WriteLine( "counter = " & counter & _
" after exiting While structure")
End Sub
End Class