Console.Error Property gets the standard error output stream.
Imports System.IO Public Class ExpandTabs Private Const tabSize As Integer = 4 Public Shared Function Main(ByVal args() As String) As Integer Dim writer As StreamWriter = Nothing Dim standardOutput As TextWriter = Console.Out Try writer = New StreamWriter("c:\\a.txt") Console.SetOut(writer) Console.SetIn(New StreamReader("c:\\a.txt")) Catch e As IOException Dim errorWriter As TextWriter = Console.Error errorWriter.WriteLine(e.Message) Return 1 End Try Dim i As Integer i = Console.Read() While i <> -1 i = Console.Read() End While writer.Close() Console.SetOut(standardOutput) Return 0 End Function End Class