Imports System

Public Module Module1

    Public Sub Main()

        Dim LoopCounter As Integer = 0

        Do While LoopCounter < 10

        LoopCounter = LoopCounter + 1   

        Console.Writeline(LoopCounter)

        Loop

    End Sub 

End Module

​

'Integer: LoopCouneter = 0

'Do While LoopCounter < 10

'LoopCounter <-- LoopCounter + 1

'Output LoopCounter

'Loop