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