Dim F As Integer
Dim lngBytePos As Long
Dim sTemp As String
 
F = FreeFile
Open "DeineDatei" For Binary As #F
 
<font color=green>' an die gewünschte Position springen</font>
lngBytePos = 10
Seek #F, lngBytePos
 
<font color=green>' 3 Zeichen einlesen</font>
sTemp = Space$(3)
Get #F, , sTemp
 
<font color=green>' gelesene Zeichen verändert zurückschreiben</font>
sTemp = "123"
Seek #F, lngBytePos
Put #F, , sTemp
 
Close #F