Dim pruefZiffer As Integer
 
100
On Error GoTo err_fehler1
 
Do
  Call FileLen(strExePfad & "\" & "done.txt")
      Open strExePfad & "\" & "done.txt" For Binary As #1
      Get #1, , pruefZiffer
      If pruefZiffer = 49 Then
          MsgBox "...", vbOKOnly
          Close #1
        Exit Do
        Else
         MsgBox "...", vbOKOnly
      End If
err_fehler1:
GoTo 100
Loop