Imports System

Public Module Module1

    Public Sub Main()

        Dim index As integer = 0

        Do 

            Console.WriteLine(index.ToString & "")

            index 

        Console.WriteLine("Hello World")

    End Sub

End Module