Do While FilePos <= FileEnd  'loopt weiter obwohl filepos > file end 
 
'buffer verkleiner wen größer als datei
If (FileEnd - FilePos - NumberOfBytes) < 0 Then
NumberOfBytes = 1240
Buffer = String(NumberOfBytes, " ")
End If
If (FileEnd - FilePos - NumberOfBytes) < 0 Then
NumberOfBytes = 1
Buffer = String(NumberOfBytes, " ")
End If
 
'quelle lesen /zeil schreiben
Get #F2, FilePos, Buffer
Put #F1, NewFilePos, Buffer
FilePos = FilePos + NumberOfBytes
NewFilePos = NewFilePos + NumberOfBytes
Form3.FileStat.Value = Form3.FileStat.Value + NumberOfBytes
DoEvents
Loop