Imports System

Public Module Module1

    Public Sub Main()

        dim i = 0

 while (i < 3)

Console.writeline("hi")

i+=1

End while

    End Sub

End Module