Imports System
Imports System.IO
Class InTest
Public Shared Sub Main()
Dim tIn As TextReader = Console.In
Dim tOut As TextWriter = Console.Out
tOut.WriteLine("Name:")
Dim name As [String] = tIn.ReadLine()
tOut.WriteLine(name)
End Sub
End Class