Imports System

Public Module Module1

    Public Sub Main()

        dim i as integer = 1

        while i < 50

            console.WriteLine(i)

            i = i + 1 

        end while

    End Sub

End Module