Dim F As Integer
Dim sInhalt As String
 
F = FreeFile
Open "DeineDatei" For Binary As #F
Seek #F, 110
sInhalt = Space$(20)
Get #F, , sInhalt
 
 
<font color=green>' Inhalt verändern</font>
sInhalt = "bla bla bla bla bla "
Seek #F, 110
Put #F, , sInhalt
Close #F