Private Sub Command1_Click()
  Const BlockSize As Variant = 4096
 
  Dim FileSize As Variant
  Dim FilePos As Variant
  Dim BytesToRead As Variant
  Dim Bytes() As Byte
  Dim F1 As Variant
  Dim F2 As Variant
  Dim PGBarStatus As Variant
  Dim PGBarEinheit As Variant
 
  F1 = FreeFile
  Open Text1.Text For Binary Access Read As #F1
 
    F2 = FreeFile
    Open Text2.Text For Binary Access Write As #F2
 
    FileSize = DateiGroesse(Text1.Text)
 
    PGBarEinheit = FileSize / 100
    PGBarStatus = PGBarEinheit
 
    ReDim Bytes(BlockSize - 1)
 
    Do Until FilePos = FileSize
 
    If FilePos + BlockSize > FileSize Then
      BytesToRead = FileSize - FilePos
      ReDim Bytes(BytesToRead - 1)
    Else
      BytesToRead = BlockSize
    End If
 
    Get #F1, , Bytes() '<- Hier Fehler
 
    Put #F2, , Bytes()
 
    FilePos = FilePos + BytesToRead
 
    If PGBarStatus <= FilePos Then
        ProgressBar1 = ProgressBar1 + 1
        PGBarStatus = PGBarStatus + PGBarEinheit
    End If
 
    DoEvents
    Loop
    Close F2
  Close #F1
End Sub