Imports System

Public Module Module1

    Public Sub Main()

        Dim angka = 5

        Dim i = 0

        Do until i = angka

            Console.Write(i)

            i += 1

        Loop

    End Sub

End Module