Imports System
Public Module Module1
Public Sub Main()
Dim num2 as Integer
Do while num2 < 50
num2 += 1
Console.Writeline(num2)
Loop
End Sub
End Module