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