ERRO NA TRANSMISSÃO DO CTE 4.0

PROSOFT 14/02/2024 07:20:41
#503043

Bom Dia Pessoal

A algum tempo desenvolvi um aplicativo pra emissão de CTE. Não tenho muitos clientes que usam, mas funcionava direitinho. Acontece que essa semana fui surpreendido com o fim da versão 3.00 e a consequente necessidade de migração para a versão 4.0
Pelo que vi, mudou a forma de envio do xml que deve estar compactado e na base 64 string
Uso esse código que fiz bem detalhado pra facilitar o entendimento

Dim NomeArq As String = "C:\Lixo\Fretes-CTe.XML"
Dim ArqZip As String = "C:\Lixo\Fretes-CTe.GZ"

Dim StreamOri As New FileStream(NomeArq, FileMode.Open, FileAccess.Read)
' ----- Cria a saida do arquivo stream
Dim StreamDest As New FileStream(ArqZip, FileMode.Create, FileAccess.Write)
Dim StreamZip As New GZipStream(StreamDest, CompressionMode.Compress, True)

' ----- Compacto o XML para o arquivo GZ
Const tamanhoBloco As Integer = 4096
Dim buffer(tamanhoBloco) As Byte
Dim bytesLidos As Integer
Do
bytesLidos = StreamOri.Read(buffer, 0, tamanhoBloco)
If (bytesLidos = 0) Then Exit Do
StreamZip.Write(buffer, 0, bytesLidos)
Loop
StreamOri.Close()
StreamZip.Close()
StreamDest.Close()

'Leio o arquico compactado para um vetor de bytes
Dim F As New FileInfo(ArqZip)
Dim Bytes As Long = F.Length
Dim Fs As New FileStream(ArqZip, FileMode.Open, FileAccess.Read)
Dim Br As New BinaryReader(Fs)
Dim Dados As Byte() = Br.ReadBytes(CInt(Bytes))
Br.Close()
Fs.Close()

'Converto o vetor de bytes para uma string base 64
Dim TxtXML As String = Convert.ToBase64String(Dados)

Ao enviar a SEFAZ a string compactada recebo a seguinte mensagem de retorno:

Erro Num: 244
Falha na descompactação da área de dados

Penso que o erro acontece por uma das seguintes razões:
1 - A string na base 64 está mal gerada;
2 - Algum erro no CML que envio

Em anexo estou enviando uma cópia do XML que estou compactando e transmitindo

Ficaria muito, mas muito grato mesmo se alguém puder me dar uma luz