■コード
Module mdlMain
Sub Main()
Dim line As String
line = Console.ReadLine()
While Not line Is Nothing
Console.WriteLine(line)
End While
End Sub
End Module