Sub Main()
        Dim fileContents
        fileContents = Split(My.Computer.FileSystem.ReadAllText("C:\Test.txt"), _
          vbCrLf)
 
        For Each line As String In fileContents
 
            Console.WriteLine(line.Substring(0))
 
        Next line
 
        Console.ReadLine()
 
    End Sub