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