Public Class TextFromFile
 
   Public Shared Sub Main()
      Dim puffer() As Byte
        Dim fileLength As Int64
        Dim strFile As String = "c:/tool.sys"
      If Not File.Exists(strFile) Then
         Console.WriteLine("Die Datei {0} existiert nicht!", strFile)
         Console.ReadLine()
         Return
      End If
      Dim fs As FileStream = File.Open(strFile, FileMode.Open)
      fileLength = fs.Length()
      ReDim puffer(fileLength - 1)
      fs.Read(puffer, 0, fileLength)
 
      Dim i As Int32
 
      For i = 0 To fs.Length - 1
            Console.Write(Convert.ToDecimal(puffer(i)))
      Next
      Console.ReadLine()
   End Sub