Dim F As Integer
Dim lPos As Long
Dim lSize As Long
Dim sText As String
 
lPos = 25  <font color=green>' Beginn Leseposition</font>
lSize = 25  <font color=green>' Anzahl Bytes, die gelesen werden sollen</font>
 
F = FreeFile
Open "DeineDatei.txt" For Binary As #F
Seek #F, lPos
sText = Space$(lSize)
Get #F, , sText
Close #F
 
MsgBox sText