Dim File As System.IO.FileInfo
            File = New System.IO.FileInfo(QuellPfad + FilePath)
 
            Dim FileStream As System.IO.FileStream = File.OpenRead()
            Dim lBytes As Long = FileStream.Length
            Dim fileData(lBytes) As Byte
 
            FileStream.Read(fileData, 0, lBytes)
            FileStream.Close()