Dim fs As New IO.FileStream("F:\Test\data.dat", IO.FileMode.Open, _
          IO.FileAccess.ReadWrite, IO.FileShare.None)
        fs.Position = 2
        Dim b As Byte = fs.ReadByte()
        b += 1
        fs.Position = 2
        fs.WriteByte(b)
        fs.Close()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist