Simple while loop in VB.NET

Example of while loop:

Sub CheckWhile()
Dim intCounter As Integer = 0
Dim intNumber As Integer = 10
While intNumber > 6
intNumber -= 1
intCounter += 1
End While
MsgBox("The loop ran " & intCounter & " times.")
End Sub

Visit: Cegonsoft