コンソールでCtrl+Zによる入力の終了ができない

[イグトランス (egtra)]

次のプログラムを実行したとき、Ctrl+Zを入力すると実行の終了となることを意図していたが、実際にはそうならない。

#console
Do
	Dim s = Console.ReadLine()
	If IsNothing(s) Then Exit Do
Loop
End

[イグトランス (egtra)]

[707]で修正。ただし、リダイレクトを用いたときの挙動が不安なので、そのうち試したい。