Dim F As Integer
Dim sInhalt As String
 
F = FreeFile
Open "DeineDatei" For Binary As #F
sInhalt = Space$(Lof(F))
Get #F, , sInhalt
Close #F
 
Dim lPos As Long
 
<font color=green>' Position des zweiten Long-Wertes, der geslöscht werden 
' soll</font>
lPos = 100
sInhalt = Left$(sInhalt, lPos - 1) & Mid$(sInhalt, lPos + 4)
 
Kill "DeineDatei"
F = FreeFile
Open "DeineDatei" For Binary As #F
Put #F, , sInhalt
Close #F