Dim fs1 As New System.IO.FileStream("d:\neu-1.bmp", IO.FileMode.Open, _
          IO.FileAccess.Read)
        Dim b As Byte
 
        fs1.Position = 2  ' Position Festlegen
        b = fs1.ReadByte    ' Byte einlesen
        fs1.Close()         ' Stream schließen
 
 
        MsgBox(Hex(b))      ' Anzeigen