对RTF进展压缩、解压出错

对RTF进行压缩、解压出错
因为richtextbox中的文本带有格式，有时候还带有图片，因些想先把rtf压缩后再存到mdb,之后再从mdb解压显示到richtextbox，但过程中解压报错(GZip 头中的幻数不正确。请确保正在传入 GZip 流)，望大师门解惑~

   Dim zpied As String
   zpied =GZipMe.CompressString(RichTextBox1.Rtf )
   RichTextBox1.Rtf = GZipMe.DecompressString(zpied)'报错

Imports System
Imports System.IO
Imports System.IO.Compression


Public Class GZipMe
    ''' <summary>
    ''' 对字符串进行压缩
    ''' </summary>
    ''' <param name="str">待压缩的字符串</param>
    ''' <returns>压缩后的字符串</returns>
    Public Shared Function CompressString(ByVal str As String) As String
        Dim compressString1 As String = ""
        Dim compressBeforeByte As Byte() = System.Text.Encoding.UTF8.GetBytes(str)
        Dim compressAfterByte As Byte() = GZipMe.Compress(compressBeforeByte)
        compressString1 = System.Text.Encoding.UTF8.GetString(compressAfterByte)
        Return compressString1
    End Function
    ''' <summary>
    ''' 对字符串进行解压缩
    ''' </summary>
    ''' <param name="str">待解压缩的字符串</param>
    ''' <returns>解压缩后的字符串</returns>
    Public Shared Function DecompressString(ByVal str As String) As String
        Dim compressString2 As String = ""
        Dim compressBeforeByte As Byte() = System.Text.Encoding.UTF8.GetBytes(str)
        Dim compressAfterByte As Byte() = GZipMe.Decompress(compressBeforeByte)
        compressString2 = System.Text.Encoding.UTF8.GetString(compressAfterByte)
        Return compressString2
    End Function
    ''' <summary>
    ''' 对文件进行压缩
    ''' </summary>
    ''' <param name="sourceFile">待压缩的文件名</param>
    ''' <param name="destinationFile">压缩后的文件名</param>
    Public Shared Sub CompressFile(ByVal sourceFile As String, ByVal destinationFile As String)
        Throw New Exception("The method or operation is not implemented.")
    End Sub
    ''' <summary>
    ''' 对byte数组进行压缩
    ''' </summary>
    ''' <param name="data">待压缩的byte数组</param>
    ''' <returns>压缩后的byte数组</returns>
    Public Shared Function Compress(ByVal data As Byte()) As Byte()
        Try
            Dim ms As New MemoryStream()
            Dim zip As New GZipStream(ms, CompressionMode.Compress, True)
            zip.Write(data, 0, data.Length)
            zip.Close()
            Dim buffer As Byte() = New Byte(ms.Length - 1) {}
            ms.Position = 0
            ms.Read(buffer, 0, buffer.Length)
            ms.Close()

            Return buffer
        Catch e As Exception
            Throw New Exception(e.Message)
        End Try
    End Function
    Public Shared Function Decompress(ByVal data As Byte()) As Byte()
        Try
            Dim ms As New MemoryStream(data)
            Dim zip As New GZipStream(ms, CompressionMode.Decompress, True)