Function ReadFile(ByRef Path As String) As String
  Dim FileNr As Long
  'Falls nicht vorhanden, nichts zurückgeben:
  On Error Resume Next
  If FileLen(Path) = 0 Then Exit Function
  On Error GoTo 0
  'Datei einlesen:
  FileNr = FreeFile
  Open Path For Binary As #FileNr
    ReadFile = (Space$(LOF(FileNr)))
    Get #FileNr, , ReadFile
  Close #FileNr
End Function