Imports System

Public Module Module1

    Public Sub Main()

        Dim intNum as Integer

        intNum = 0

        While intNum < 10

            intNum = intNum + 1

            Console.WriteLine(intNum)

        End While

    End Sub

End Module