Imports System

Public Module WHILELOOPS

    Public Sub Main()

        'PSUDOCODE

        '

        'WHILE g < 10

        'DO

        'OUTPUT "Hello there!"

        'ENDWHILE

        Dim i As integer

        While i < 10

            console.writeline("Hello There!")

            i = i + 1

        End While

    End Sub

End Module