问管道通过命令后控制台重定向的问题

EN

Console.SetIn(New IO.StreamReader(Console.OpenStandardInput))

sub main()

  Dim lista As New List(Of String)
        Do
            Dim line = Console.ReadLine()
            Select Case line
                Case vbNullString
                    Exit Do
                Case Else
                    lista.Add(line)
            End Select
        Loop

        For Each linea As String In lista
            Console.WriteLine(linea)
        Next

        Console.ReadKey()
end sub ()

dir /b | program.exe