Imports System

Public Module Module1

    Public Sub Main()

        Dim num1 As Integer = 0

        Do While num1 <= 15

            num1 += 1

            Console.WriteLine(num1)

        Loop

        Console.WriteLine()

    End Sub

End Module