Dim F As Integer
  Dim lSize As Long
  Dim lCurPos As Long
  Dim lBytes As Long
  Dim sContent As String
  Dim iProz As Integer
 
  <font color=green>' RichTextBox ausblenden!</font>
  RichTextBox1.Text = ""
  RichTextBox1.Visible = False
 
  <font color=green>' maximale Blockgröße</font>
  Const lBlock = 16384
 
  F = FreeFile
  Open "DeineDatei" For Binary As #F
 
  <font color=green>' Datei blockweise kopieren</font>
  lSize = LOF(F): lCurPos = 0
  Do While lCurPos < lSize
    lBytes = lBlock
    If lCurPos + lBytes > lSize Then _
      lBytes = lSize - lCurPos
 
    <font color=green>' Lesen</font>
    sContent = Space$(lBytes)
    Get #F, , sContent
 
    <font color=green>' Und ab ins RTF-Control</font>
    RichTextBox1.SelText = sContent
 
    <font color=green>' Status aktualisiern</font>
    lCurPos = lCurPos + lBytes
    iProz = Int(lCurPos / lSize * 100 + 0.5)
 
    <font color=green>' Fortschrift...
    ' ShowProgress picProgress, iProz, 0, 100</font>
 
  Loop
  Close #F
 
  <font color=green>' RichTextBox einblenden</font>
  RichTextBox1.Visible = True
  RichTextBox1.SelStart = 0