Imports System Public Class Test Public Shared Sub Main() Dim n As Integer n = Console.ReadLine Do While n <> 42 System.Console.WriteLine(n) n = Console.ReadLine Loop End Sub End Class