Console.ReadLine

■コード

Module mdlMain

Sub Main()

Dim line As String

line = Console.ReadLine()

While Not line Is Nothing

line = Console.ReadLine()

Console.WriteLine(line)

End While

End Sub

End Module