Dim F As Integer
Dim lPos As Long
Dim sText As String
Dim sLen As Integer
Dim sFile As String
 
sFile = "DeineDatei.txt"
 
<font color=green>' exakte Position (Beginn des zu ändernden Textes)</font>
lPos = 100
 
<font color=green>' Länge des einzulesenden Textes</font>
sLen = 41
sText = Space$(sLen)
 
<font color=green>' Text einlesen</font>
Seek #F, lPos
Get #F, , sText
 
<font color=green>' Änderung vornehmen</font>
sText = Right$(sText, 11) & Mid$(sText, 12) & Left$(sText, 11)
 
<font color=green>' Änderung speichern</font>
Seek #F, lPos
Put #F, , sText
Close #F