While BytesProcessed < FileLength
            BytesInCurrentBlock = InputStream.Read(Buffer, 0, 4096)
            CryptoStream.Write(Buffer, 0, BytesInCurrentBlock)
            BytesProcessed = BytesProcessed + CLng(BytesInCurrentBlock)
        End While