Dim fsA As New FileStream(file1), FileMode.Open)
                Dim Hash1 As Byte() = Hash.ComputeHash(fsA)
                fsA.Close()
 
                Dim fsB As New FileStream(file2), FileMode.Open)
                Dim Hash2 As Byte() = Hash.ComputeHash(fsB)
                fsB.Close()

"System.UnauthorizedAccessException: Access to the path" & _
  ""F:\Freizeit\Bilder\Copy of IM000914.JPG" is denied.
   at System.IO.__Error.WinIOError(Int32 errorCode, String str)
   at System.IO.FileStream..ctor(String path, FileMode mode, FileAccess access, _
     FileShare share, Int32 bufferSize, Boolean useAsync, String msgPath, _
     Boolean bFromProxy)
   at System.IO.FileStream..ctor(String path, FileMode mode)
   at vergleiche.Form1.btnBerechnen_Click(Object sender, EventArgs e) in _
     F:\vb_projecte\vergleiche\Form1.vb:line 270"