If LoadDlg.ShowDialog() = DialogResult.OK Then
 
            Dim RdM As New RijndaelManaged
            Dim RdIVLength As Integer = 16
            Dim MD5 As New MD5CryptoServiceProvider
            Dim Key() As Byte = MD5.ComputeHash(Encoding.UTF8.GetBytes( _
              "12345678"))
 
            MD5.Clear()
 
            Dim FStream As New FileStream(LoadDlg.FileName, FileMode.Open)
            Dim IV(15) As Byte
 
            FStream.Read(IV, 0, RdIVLength)
            RdM.IV = IV
            RdM.Key = Key
 
            Dim CStream As New CryptoStream(FStream, RdM.CreateDecryptor, _
              CryptoStreamMode.Read)
            Dim RStream As New StreamReader(CStream)
 
            If RStream.ReadLine.Remove(0, (Application.ProductName.Length + _
              2)).Trim = Application.ProductVersion Then
 
                RStream.ReadLine()
                RStream.ReadLine()
                RStream.ReadLine()
                RStream.ReadLine()
 
                Pwd = RStream.ReadLine.Remove(0, 10).Replace("""", "").Trim
 
                If CDbl(RStream.ReadLine.Remove(0, 7).Trim) > _
                  Screen.PrimaryScreen.Bounds.Width Or CDbl( _
                  RStream.ReadLine.Remove(0, 8).Trim) > _
                  Screen.PrimaryScreen.Bounds.Height Then
                    MsgBox("Error...")
                    Exit Sub
                End If
 
                RStream.Close() ' Hier kommt der Fehler
                CStream.Close()
                FStream.Close()
 
                RdM.Clear()
 
            Else
                MsgBox("Error...")
 
                RStream.Close()
                CStream.Close()
                FStream.Close()
 
                RdM.Clear()
 
                Exit Sub
            End If