Convert string to boolean
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