Dim LoopCounter As Integer = 0
Do While LoopCounter < 100
LoopCounter += 1
Dim SkipToNextIteration As Boolean ' Local to this loop.
' Processing, which might change value of SkipToNextIteration.
If SkipToNextIteration = True Then GoTo EndOfLoop
' More processing if SkipToNextIteration was still False.
EndOfLoop: Loop ' Acts like Continue.
Dim LoopCounter As Integer = 0
Do While LoopCounter < 100
LoopCounter += 1
Dim SkipToNextIteration As Boolean ' Local to this loop.
' Processing, which might change value of SkipToNextIteration.
If SkipToNextIteration = True Then GoTo EndOfLoop
' More processing if SkipToNextIteration was still False.
EndOfLoop: Loop ' Acts like Continue.