Imports System
Public Class Program
Public Shared Sub Main()
Dim n As Integer
Console.WriteLine("Enter numbers, 42 to exit:")
While True
n = Integer.Parse(Console.ReadLine())
If n = 42 Then
Exit While
End If
Console.WriteLine(n)
End While
End Sub
End Class
' run:
'
' Enter numbers, 42 to exit:
' 4
' 4
' 9
' 9
' 0
' 0
' 546
' 546
' 90128
' 90128
' 42
'