Imports System
Public Class MainClass
Shared Sub Main()
'Declare variable
Dim intCount As Integer = 0
'Process the loop
Do While intCount < 10
'Add the item to the list
System.Console.WriteLine(intCount)
'Increment intCount by 1
intCount += 1
'Should you quit
If intCount = 3 Then
Exit Do
End If
Loop
End Sub
End Class