Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        dim i as integer

        i = 0

        while i < 56

        console.WriteLine(i)

            i = i + 1

        end while

    End Sub

End Module