zip.Read(buffer, 0, buffer.Length)

El número mágico del encabezado de GZip no es correcto. Asegúrese de que está pasando una secuencia GZip.

    Private Function UnZip(ByVal compressedText As String) As String
        Dim gzBuffer As Byte() = System.Text.Encoding.ASCII.GetBytes(compressedText) 'Convert.FromBase64String(compressedText)
        Using ms As New MemoryStream()
            Dim msgLength As Integer = BitConverter.ToInt32(gzBuffer, 0)
            ms.Write(gzBuffer, 4, gzBuffer.Length - 4)
            Dim buffer As Byte() = New Byte(msgLength - 1) {}
            ms.Position = 0
 
            Using zip As New GZipStream(ms, CompressionMode.Decompress)
                    zip.Read(buffer, 0, buffer.Length)
            End Using
 
            Return System.Text.Encoding.UTF8.GetString(buffer)
        End Using
    End Function

    Private Function DecompressFile(ByVal CompressedFilename As String, ByVal DecompressedFilename As String) As Boolean
        Try
            Dim [Stream] As FileStream = New FileStream(CompressedFilename, FileMode.Open)
            Dim [GZipStream] As GZipStream = New GZipStream([Stream], CompressionMode.Decompress)
            Dim sr As StreamReader = New StreamReader(CType([GZipStream], IO.Stream))
 
            My.Computer.FileSystem.WriteAllText(DecompressedFilename, sr.ReadToEnd(), False)
            sr.Close() : [Stream].Close()
            If File.Exists(DecompressedFilename) Then Return True
        Catch ex As IOException
            msgbox(ex.Message)
        Catch ex As Exception
            msgbox(ex.Message)
        End Try
        Return False
    End Function

Saludos, Sancho.Mazorka    

Dim gzBuffer As Byte() = System.Text.ASCIIEncoding.GetBytes(compressedText)

Excepción del tipo 'System.IO.InvalidDataException' en System.dll
El número mágico del encabezado de GZip no es correcto. Asegúrese de que está pasando una secuencia GZip.

Dim gzBuffer As Byte() = System.Text.UnicodeEncoding.GetBytes(compressedText)

Excepción del tipo 'System.IO.InvalidDataException' en System.dll
El número mágico del encabezado de GZip no es correcto. Asegúrese de que está pasando una secuencia GZip.

Dim gzBuffer As Byte() = System.Text.UTF32Encoding.GetBytes(compressedText)

Excepción del tipo 'System.IO.InvalidDataException' en System.dll
El número mágico del encabezado de GZip no es correcto. Asegúrese de que está pasando una secuencia GZip.

Dim gzBuffer As Byte() = System.Text.UTF7Encoding.GetBytes(compressedText)

Excepción del tipo 'System.IO.InvalidDataException' en System.dll
El número mágico del encabezado de GZip no es correcto. Asegúrese de que está pasando una secuencia GZip.

Dim gzBuffer As Byte() = System.Text.UTF8Encoding.GetBytes(compressedText)

Excepción del tipo 'System.OverflowException' en Host Uploader.exe
La operación aritmética ha provocado un desbordamiento.

Dim gzBuffer As Byte() = Convert.FromBase64String(compressedText)

Excepción del tipo 'System.FormatException' en Host Uploader.exe
Carácter no válido en una cadena Base-64.

Saludos, Sancho.Mazorka