Public Class MainClass
Public Shared Sub Main()
Dim lineInput As String
lineInput = "a\ta\ta\taa"
While Not lineInput Is Nothing
Dim fields() As String = lineInput.Split(ControlChars.Tab)
Dim isFirstField As Boolean = True
Dim item As String
For Each item In fields
Try
Console.Write(Convert.ToByte(Convert.ToBoolean(item)))
Catch
Console.Write(item)
End Try
Next item
lineInput = Console.ReadLine()
End While
End Sub
End Class