<code>  <font color=#000099>Dim</font> sFile <font color=#000099>As</font> _
  <font color=#000099>String</font>
  <font color=#000099>Dim</font> F <font color=#000099>As</font> <font _
  color=#000099>Integer</font>
  <font color=#000099>Dim</font> lPos <font color=#000099>As</font> <font _
  color=#000099>Long</font>
  <font color=#000099>Dim</font> lLen <font color=#000099>As</font> <font _
  color=#000099>Long</font>
  <font color=#000099>Dim</font> sLine <font color=#000099>As</font> <font _
  color=#000099>String</font>
 
  <font color=green>' Dateiname</font>
  sFile = "DeineDatei.txt"
 
  <font color=green>' Position + Länge der Zeile</font>
  lPos = 1000: lLen = 36
 
  <font color=green>' Datei binär öffnen und Zeile auslesen</font>
  F = FreeFile
  <font color=#000099>Open</font> sFile <font color=#000099>For</font> <font _
    color=#000099>Binary</font> <font color=#000099>As</font> #F
  Seek #F, lPos
 
  sLine = Space$(lLen)
  <font color=#000099>Get</font> #F, , sLine
 
  <font color=green>' Zeile ändern</font>
  sLine = "Neue Zeile mit exakter Originallänge"
 
  <font color=green>' Zeile zurückspeichern</font>
  Seek #F, lPos
  <font color=#000099>Put</font> #F, , sLine
 
  <font color=green>' Datei schliessen</font>
  <font color=#000099>Close</font> #F</code>