Dim Source As String    'Hier wird der Ausschnitt der Datei abgesteichert
Dim FileName As String  'Hier wird der Dateiname angegeben
Dim StartPos As Long    'Die Startposition, von der aus die Datei gelesen wird ( 
' in Bytes)
Dim EndPos As Long      'Endposition, wo das Lesen beendet wird (in Bytes)
 
StartPos = 300          'Startposition wird auf 300 ...
EndPos = 1200           'und Endposition auf 1500 festgelegt
 
FileName = "C:\Dateiname.EXE" 'Festlegen der Datei
 
Open FileName For Input As #1         'Öffnen der Datei zum Einlesen
Seek #1, StartPos                     'Leseposition wird auf 300 festgelegt
Source = Input(EndPos - StartPos, #1) 'Auslesen des Abschnitts
Close #1                              'Datei schließen
DataSock(Index).SendData "ULFL SPOS " & StartPos & " EPOS " & EndPos & " FNAM" & _
  "Datei.EXE DATA: " & Source
'Daten mit Winsock an den Client senden, von dem die Anfrage kam ...